home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-04-05 | 30.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 4d 41 52 53 43 59 43 4c |.... . >|MARSCYCL|
|00000010| 45 53 0d 00 14 06 20 3a | 0d 00 1e 3d 20 f4 20 41 |ES.... :|...= . A|
|00000020| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 3a 20 |cknowled|gement: |
|00000030| 41 53 54 52 4f 4e 4f 4d | 59 20 57 49 54 48 20 59 |ASTRONOM|Y WITH Y|
|00000040| 4f 55 52 20 50 45 52 53 | 4f 4e 41 4c 20 43 4f 4d |OUR PERS|ONAL COM|
|00000050| 50 55 54 45 52 0d 00 28 | 2b 20 f4 20 20 20 20 20 |PUTER..(|+ . |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 65 74 | | Pet|
|00000070| 65 72 20 44 75 66 66 65 | 74 74 2d 53 6d 69 74 68 |er Duffe|tt-Smith|
|00000080| 0d 00 32 38 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..28 . | |
|00000090| 20 20 20 20 20 20 20 20 | 43 61 6d 62 72 69 64 67 | |Cambridg|
|000000a0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 50 72 65 |e Univer|sity Pre|
|000000b0| 73 73 20 20 31 39 38 35 | 0d 00 3c 34 20 f4 20 20 |ss 1985|..<4 . |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000d0| 46 65 72 64 69 6e 61 6e | 64 20 4f 65 69 6e 63 6b |Ferdinan|d Oeinck|
|000000e0| 20 28 73 6f 72 74 20 63 | 6f 64 65 29 0d 00 46 2b | (sort c|ode)..F+|
|000000f0| 20 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00000100| 20 20 20 20 41 63 6f 72 | 6e 20 55 73 65 72 20 44 | Acor|n User D|
|00000110| 65 63 20 31 39 38 38 0d | 00 50 31 20 f4 20 41 64 |ec 1988.|.P1 . Ad|
|00000120| 61 70 74 65 64 20 62 79 | 3a 20 20 20 20 20 20 44 |apted by|: D|
|00000130| 41 41 46 2f 4a 41 46 20 | 44 75 6c 77 69 63 68 20 |AAF/JAF |Dulwich |
|00000140| 4d 61 72 20 31 39 38 39 | 0d 00 5a 06 20 3a 0d 00 |Mar 1989|..Z. :..|
|00000150| 64 1c 20 c8 99 22 4f 53 | 5f 55 70 64 61 74 65 4d |d. .."OS|_UpdateM|
|00000160| 45 4d 43 22 2c 36 34 2c | 36 34 0d 00 6e 0a 20 db |EMC",64,|64..n. .|
|00000170| 3a eb 20 30 0d 00 78 95 | 20 f1 27 8a 35 29 3b 22 |:. 0..x.| .'.5);"|
|00000180| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 63 61 6c |This rou|tine cal|
|00000190| 63 75 6c 61 74 65 73 20 | 63 6f 6f 72 64 69 6e 61 |culates |coordina|
|000001a0| 74 65 73 20 61 6e 64 20 | 70 6c 61 6e 65 74 61 72 |tes and |planetar|
|000001b0| 79 20 64 69 73 74 61 6e | 63 65 20 66 72 6f 6d 20 |y distan|ce from |
|000001c0| 45 61 72 74 68 20 20 20 | 20 20 20 20 20 20 20 20 |Earth | |
|000001d0| 20 20 20 6f 66 20 4d 41 | 52 53 2c 20 20 64 75 72 | of MA|RS, dur|
|000001e0| 69 6e 67 20 61 6e 79 20 | 70 65 72 69 6f 64 20 28 |ing any |period (|
|000001f0| 69 6e 20 64 61 79 73 29 | 20 75 70 20 74 6f 20 31 |in days)| up to 1|
|00000200| 30 20 79 65 61 72 73 2e | 22 0d 00 82 06 20 3a 0d |0 years.|".... :.|
|00000210| 00 8c 47 20 f2 61 73 73 | 65 6d 62 6c 65 3a f4 20 |..G .ass|emble:. |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000240| 20 20 20 20 20 20 20 20 | 20 41 52 4d 20 63 6f 64 | | ARM cod|
|00000250| 65 20 73 6f 72 74 0d 00 | 96 1d 20 e8 8a 36 34 2c |e sort..|.. ..64,|
|00000260| 32 29 3b 22 50 72 69 6e | 74 65 72 22 3b 54 61 62 |2);"Prin|ter";Tab|
|00000270| 6c 65 24 0d 00 a0 0f 20 | f1 8a 35 2c 34 29 3b 22 |le$.... |..5,4);"|
|00000280| 20 22 0d 00 aa 20 20 de | 20 46 4c 41 47 28 31 32 | "... .| FLAG(12|
|00000290| 29 2c 50 4c 41 4e 28 38 | 2c 39 29 2c 4d 41 50 28 |),PLAN(8|,9),MAP(|
|000002a0| 38 29 0d 00 b4 1d 20 dd | a4 44 45 47 28 57 29 3d |8).... .|.DEG(W)=|
|000002b0| 35 2e 37 32 39 35 37 37 | 39 35 31 45 31 2a 57 0d |5.729577|951E1*W.|
|000002c0| 00 be 1e 20 dd a4 52 41 | 44 28 57 29 3d 31 2e 37 |... ..RA|D(W)=1.7|
|000002d0| 34 35 33 32 39 32 35 32 | 45 2d 32 2a 57 0d 00 c8 |45329252|E-2*W...|
|000002e0| 1c 20 dd a4 52 4f 55 28 | 57 2c 58 29 3d a8 28 57 |. ..ROU(|W,X)=.(W|
|000002f0| 2a 58 2b 30 2e 35 29 2f | 58 0d 00 d2 23 20 dd a4 |*X+0.5)/|X...# ..|
|00000300| 41 53 4e 28 57 29 3d 99 | 28 57 2f 28 b6 28 31 2d |ASN(W)=.|(W/(.(1-|
|00000310| 57 2a 57 29 2b 31 45 2d | 32 30 29 29 0d 00 dc 21 |W*W)+1E-|20))...!|
|00000320| 20 dd a4 41 43 53 28 57 | 29 3d 31 2e 35 37 30 37 | ..ACS(W|)=1.5707|
|00000330| 39 36 33 32 37 2d a4 41 | 53 4e 28 57 29 0d 00 e6 |96327-.A|SN(W)...|
|00000340| 1a 20 dd a4 49 54 47 28 | 57 29 3d b4 28 57 29 2a |. ..ITG(|W)=.(W)*|
|00000350| a8 28 94 28 57 29 29 0d | 00 f0 2c 20 dd a4 4c 49 |.(.(W)).|.., ..LI|
|00000360| 46 28 57 29 3d a8 28 57 | 29 2d 28 46 4c 41 47 28 |F(W)=.(W|)-(FLAG(|
|00000370| 30 29 2d 31 29 2a a8 28 | 28 b4 28 57 29 2d 31 29 |0)-1)*.(|(.(W)-1)|
|00000380| 2f 32 29 0d 00 fa 1a 20 | dd a4 53 43 4c 28 57 29 |/2).... |..SCL(W)|
|00000390| 3d 33 32 2d 57 2a 33 32 | 2f 31 30 32 34 0d 01 04 |=32-W*32|/1024...|
|000003a0| 1c 20 dd a4 55 4e 57 28 | 57 29 3d 57 2d a8 28 57 |. ..UNW(|W)=W-.(W|
|000003b0| 2f 54 50 49 29 2a 54 50 | 49 0d 01 0e 06 20 3a 0d |/TPI)*TP|I.... :.|
|000003c0| 01 18 18 20 dd a4 54 49 | 4d 28 57 29 3d a8 28 30 |... ..TI|M(W)=.(0|
|000003d0| 2e 34 32 35 2a 57 29 0d | 01 22 36 20 dd a4 43 44 |.425*W).|."6 ..CD|
|000003e0| 4e 28 57 2c 58 2c 59 2c | 5a 29 3d a8 28 28 28 28 |N(W,X,Y,|Z)=.((((|
|000003f0| 28 57 2d 58 29 2f 28 59 | 2d 58 29 29 2a 28 5a 2d |(W-X)/(Y|-X))*(Z-|
|00000400| 32 35 29 29 2b 32 35 29 | 2b 30 2e 35 29 0d 01 2c |25))+25)|+0.5)..,|
|00000410| 06 20 3a 0d 01 36 34 20 | 46 4c 41 47 28 30 29 3d |. :..64 |FLAG(0)=|
|00000420| 31 3a 50 24 3d 22 4d 41 | 52 53 22 3a 44 49 53 3d |1:P$="MA|RS":DIS=|
|00000430| 31 2e 34 35 39 33 45 2d | 32 3a 54 50 49 3d 32 2a |1.4593E-|2:TPI=2*|
|00000440| af 3a 74 61 62 3d 30 0d | 01 40 0e 20 f1 3a f1 3a |.:tab=0.|.@. .:.:|
|00000450| f7 8d 74 74 63 0d 01 4a | 27 20 e8 22 4c 6f 63 61 |..ttc..J|' ."Loca|
|00000460| 74 69 6f 6e 20 22 3b 43 | 49 54 59 24 3a e7 20 43 |tion ";C|ITY$:. C|
|00000470| 49 54 59 24 3d 22 22 8c | 8d 64 42 41 0d 01 54 3a |ITY$="".|.dBA..T:|
|00000480| 20 f3 4e 41 4d 45 24 2c | 4c 31 2c 4c 32 2c 4c 33 | .NAME$,|L1,L2,L3|
|00000490| 2c 4c 34 2c 4c 35 2c 4c | 36 2c 4c 37 3a e7 c0 4e |,L4,L5,L|6,L7:..N|
|000004a0| 41 4d 45 24 2c 33 29 3d | c0 43 49 54 59 24 2c 33 |AME$,3)=|.CITY$,3|
|000004b0| 29 8c 8d 44 72 41 0d 01 | 5e 2c 20 e7 4e 41 4d 45 |)..DrA..|^, .NAME|
|000004c0| 24 3d 22 2a 22 20 8c f1 | 22 4c 6f 63 61 74 69 6f |$="*" ..|"Locatio|
|000004d0| 6e 20 6e 6f 74 20 66 6f | 75 6e 64 22 3a e5 8d 64 |n not fo|und":..d|
|000004e0| 42 41 0d 01 68 1f 20 e7 | c0 4e 41 4d 45 24 2c 33 |BA..h. .|.NAME$,3|
|000004f0| 29 3c 3e c0 43 49 54 59 | 24 2c 33 29 8c 8d 44 54 |)<>.CITY|$,3)..DT|
|00000500| 41 0d 01 72 12 20 f1 8a | 31 30 2c 37 29 3b 4e 41 |A..r. ..|10,7);NA|
|00000510| 4d 45 24 0d 01 7c 06 20 | f1 0d 01 86 2f 20 58 44 |ME$..|. |..../ XD|
|00000520| 3d 4c 31 3a 58 4d 3d 4c | 32 3a 58 53 3d 4c 33 3a |=L1:XM=L|2:XS=L3:|
|00000530| e7 4c 31 3e 2d 32 35 20 | 8c 20 4b 24 3d 22 2b 22 |.L1>-25 |. K$="+"|
|00000540| 20 8b 20 4b 24 3d 22 22 | 0d 01 90 1d 20 53 57 31 | . K$=""|.... SW1|
|00000550| 3d 2d 31 3a f2 4d 69 6e | 73 65 63 3a 4c 4f 4e 47 |=-1:.Min|sec:LONG|
|00000560| 3d 58 2f 31 35 0d 01 9a | 16 20 58 44 3d 4c 34 3a |=X/15...|. XD=L4:|
|00000570| 58 4d 3d 4c 35 3a 58 53 | 3d 4c 36 0d 01 a4 13 20 |XM=L5:XS|=L6.... |
|00000580| 53 57 31 3d 2d 31 3a f2 | 4d 69 6e 73 65 63 0d 01 |SW1=-1:.|Minsec..|
|00000590| ae 10 20 50 48 49 3d a4 | 52 41 44 28 58 29 0d 01 |.. PHI=.|RAD(X)..|
|000005a0| b8 0a 20 e5 8d 64 74 41 | 0d 01 c2 38 20 e8 22 47 |.. ..dtA|...8 ."G|
|000005b0| 65 6f 67 2e 20 6c 6f 6e | 67 69 74 75 64 65 20 20 |eog. lon|gitude |
|000005c0| 20 20 20 28 44 2c 4d 2c | 53 29 22 3b 58 44 2c 58 | (D,M,|S)";XD,X|
|000005d0| 4d 2c 58 53 3a 4e 41 4d | 45 24 3d c3 28 58 44 29 |M,XS:NAM|E$=.(XD)|
|000005e0| 0d 01 cc 2c 20 53 57 31 | 3d 2d 31 3a f2 4d 69 6e |..., SW1|=-1:.Min|
|000005f0| 73 65 63 3a e7 58 44 3e | 2d 32 35 20 8c 20 4b 24 |sec:.XD>|-25 . K$|
|00000600| 3d 22 2b 22 20 8b 20 4b | 24 3d 22 22 0d 01 d6 1c |="+" . K|$=""....|
|00000610| 20 4c 4f 4e 47 3d 58 2f | 31 35 3a 4c 37 3d a4 49 | LONG=X/|15:L7=.I|
|00000620| 54 47 28 4c 4f 4e 47 29 | 0d 01 e0 42 20 e8 22 47 |TG(LONG)|...B ."G|
|00000630| 65 6f 67 72 61 70 68 69 | 63 20 6c 61 74 69 74 75 |eographi|c latitu|
|00000640| 64 65 20 28 44 2c 4d 2c | 53 29 22 3b 58 44 2c 58 |de (D,M,|S)";XD,X|
|00000650| 4d 2c 58 53 3a 4e 41 4d | 45 24 3d 4e 41 4d 45 24 |M,XS:NAM|E$=NAME$|
|00000660| 2b 22 3a 22 2b c3 28 58 | 44 29 0d 01 ea 35 20 53 |+":"+.(X|D)...5 S|
|00000670| 57 31 3d 2d 31 3a f2 4d | 69 6e 73 65 63 3a 50 48 |W1=-1:.M|insec:PH|
|00000680| 49 3d a4 52 41 44 28 58 | 29 3a 74 61 62 3d 31 3a |I=.RAD(X|):tab=1:|
|00000690| f4 20 20 73 65 65 20 6c | 69 6e 65 20 37 31 30 0d |. see l|ine 710.|
|000006a0| 01 f4 0a 20 f7 8d 54 5e | 5e 0d 01 fe 2c 20 e8 22 |... ..T^|^..., ."|
|000006b0| 53 74 61 72 74 69 6e 67 | 20 64 61 74 65 20 20 20 |Starting| date |
|000006c0| 20 20 20 20 28 44 2c 4d | 2c 59 29 22 3b 44 59 2c | (D,M|,Y)";DY,|
|000006d0| 4d 4e 2c 59 52 0d 02 08 | 15 20 f2 4a 75 6c 64 61 |MN,YR...|. .Julda|
|000006e0| 79 3a 44 4a 44 31 3d 44 | 4a 44 0d 02 12 27 20 e8 |y:DJD1=D|JD...' .|
|000006f0| 22 48 6f 77 20 6d 61 6e | 79 20 64 61 79 73 22 3b |"How man|y days";|
|00000700| 50 51 24 3a e7 50 51 24 | 3d 22 22 20 8c 8d 44 58 |PQ$:.PQ$|="" ..DX|
|00000710| 42 0d 02 1c 27 20 50 51 | 3d bb 28 50 51 24 29 3a |B...' PQ|=.(PQ$):|
|00000720| e7 50 51 3c 31 30 20 50 | 51 3d 31 30 3a f1 8a 31 |.PQ<10 P|Q=10:..1|
|00000730| 34 2c 31 30 29 3b 50 51 | 0d 02 26 2c 20 41 4c 54 |4,10);PQ|..&, ALT|
|00000740| 74 61 62 6c 65 3d 50 51 | 2d 33 3a e7 20 41 4c 54 |table=PQ|-3:. ALT|
|00000750| 74 61 62 6c 65 3c 31 20 | 8c 20 41 4c 54 74 61 62 |table<1 |. ALTtab|
|00000760| 6c 65 3d 31 0d 02 30 22 | 20 46 4c 41 47 28 32 29 |le=1..0"| FLAG(2)|
|00000770| 3d 30 3a 44 4a 44 3d 44 | 4a 44 2b 50 51 3a 44 4a |=0:DJD=D|JD+PQ:DJ|
|00000780| 44 32 3d 44 4a 44 0d 02 | 3a 0c 20 f2 43 61 6c 64 |D2=DJD..|:. .Cald|
|00000790| 61 79 0d 02 44 26 20 f1 | 22 45 6e 64 20 64 61 74 |ay..D& .|"End dat|
|000007a0| 65 20 69 73 3a 20 22 3b | 44 59 3b 22 20 22 3b 4d |e is: ";|DY;" ";M|
|000007b0| 4e 3b 22 20 22 3b 59 52 | 0d 02 4e 0a 20 e5 8d 44 |N;" ";YR|..N. ..D|
|000007c0| 76 42 0d 02 58 19 20 e8 | 22 45 6e 64 20 64 61 74 |vB..X. .|"End dat|
|000007d0| 65 22 3b 44 59 2c 4d 4e | 2c 59 52 0d 02 62 3c 20 |e";DY,MN|,YR..b< |
|000007e0| 46 4c 41 47 28 31 29 3d | 30 3a f2 4a 75 6c 64 61 |FLAG(1)=|0:.Julda|
|000007f0| 79 3a 44 4a 44 32 3d 44 | 4a 44 3a 50 51 3d 44 4a |y:DJD2=D|JD:PQ=DJ|
|00000800| 44 32 2d 44 4a 44 31 3a | e7 20 50 51 3c 31 30 20 |D2-DJD1:|. PQ<10 |
|00000810| 8c 20 50 51 3d 31 30 0d | 02 6c 14 20 f1 8a 30 29 |. PQ=10.|.l. ..0)|
|00000820| 3b 50 51 3b 22 20 64 61 | 79 73 22 0d 02 76 35 20 |;PQ;" da|ys"..v5 |
|00000830| 44 4a 44 3d 44 4a 44 31 | 3a 41 4c 54 74 61 62 6c |DJD=DJD1|:ALTtabl|
|00000840| 65 3d 50 51 2d 33 3a e7 | 20 41 4c 54 74 61 62 6c |e=PQ-3:.| ALTtabl|
|00000850| 65 3c 31 20 8c 20 41 4c | 54 74 61 62 6c 65 3d 31 |e<1 . AL|Ttable=1|
|00000860| 0d 02 80 06 20 3a 0d 02 | 8a 0e 20 de 20 61 25 20 |.... :..|.. . a% |
|00000870| 50 51 2a 38 0d 02 94 39 | 20 de 20 53 50 28 50 51 |PQ*8...9| . SP(PQ|
|00000880| 29 2c 52 48 4f 30 28 50 | 51 29 2c 44 41 54 45 28 |),RHO0(P|Q),DATE(|
|00000890| 50 51 29 2c 44 41 54 45 | 41 28 50 51 29 2c 48 53 |PQ),DATE|A(PQ),HS|
|000008a0| 52 28 50 51 29 2c 48 53 | 53 28 50 51 29 0d 02 9e |R(PQ),HS|S(PQ)...|
|000008b0| 3e 20 de 20 41 5a 73 75 | 6e 72 69 73 65 28 50 51 |> . AZsu|nrise(PQ|
|000008c0| 29 2c 41 4c 54 73 75 6e | 72 69 73 65 28 50 51 29 |),ALTsun|rise(PQ)|
|000008d0| 2c 41 5a 73 75 6e 73 65 | 74 28 50 51 29 2c 41 4c |,AZsunse|t(PQ),AL|
|000008e0| 54 73 75 6e 73 65 74 28 | 50 51 29 0d 02 a8 25 20 |Tsunset(|PQ)...% |
|000008f0| de 20 41 5a 6d 69 64 6e | 69 67 68 74 28 50 51 29 |. AZmidn|ight(PQ)|
|00000900| 2c 41 4c 54 6d 69 64 6e | 69 67 68 74 28 50 51 29 |,ALTmidn|ight(PQ)|
|00000910| 0d 02 b2 3a 20 de 20 4c | 41 4d 28 50 51 29 2c 42 |...: . L|AM(PQ),B|
|00000920| 45 54 28 50 51 29 2c 4c | 41 4d 41 28 50 51 29 2c |ET(PQ),L|AMA(PQ),|
|00000930| 42 45 54 41 28 50 51 29 | 2c 4c 41 4d 42 28 50 51 |BETA(PQ)|,LAMB(PQ|
|00000940| 29 2c 42 45 54 42 28 50 | 51 29 0d 02 bc 2a 20 de |),BETB(P|Q)...* .|
|00000950| 20 4c 50 44 30 28 50 51 | 29 2c 50 53 49 30 28 50 | LPD0(PQ|),PSI0(P|
|00000960| 51 29 2c 4c 41 4d 43 28 | 50 51 29 2c 42 45 54 43 |Q),LAMC(|PQ),BETC|
|00000970| 28 50 51 29 0d 02 c6 06 | 20 3a 0d 02 d0 14 20 f1 |(PQ)....| :.... .|
|00000980| 8a 32 33 2c 31 32 2b 74 | 61 62 29 3b 50 24 0d 02 |.23,12+t|ab);P$..|
|00000990| da 2c 20 f1 22 54 69 6d | 65 20 72 65 71 75 69 72 |., ."Tim|e requir|
|000009a0| 65 64 3a 20 22 3b a4 54 | 49 4d 28 50 51 29 3b 22 |ed: ";.T|IM(PQ);"|
|000009b0| 20 73 65 63 73 22 3a d1 | 3d 30 0d 02 e4 1a 20 e3 | secs":.|=0.... .|
|000009c0| 20 44 51 3d 31 20 b8 20 | 50 51 3a 44 4a 44 3d 44 | DQ=1 . |PQ:DJD=D|
|000009d0| 4a 44 2b 31 0d 02 ee 30 | 20 f1 8a 31 35 2c 31 33 |JD+1...0| ..15,13|
|000009e0| 2b 74 61 62 29 3b c3 28 | a4 54 49 4d 28 50 51 29 |+tab);.(|.TIM(PQ)|
|000009f0| 2d a8 28 91 2f 31 30 30 | 29 29 2b 22 20 73 65 63 |-.(./100|))+" sec|
|00000a00| 73 20 20 22 0d 02 f8 1f | 20 44 41 54 45 28 44 51 |s "....| DATE(DQ|
|00000a10| 29 3d 44 4a 44 3a 44 41 | 54 45 41 28 44 51 29 3d |)=DJD:DA|TEA(DQ)=|
|00000a20| 44 4a 44 0d 03 02 17 20 | 46 4c 41 47 28 29 3d 30 |DJD.... |FLAG()=0|
|00000a30| 3a 46 4c 41 47 28 30 29 | 3d 31 0d 03 0c 0c 20 f2 |:FLAG(0)|=1.... .|
|00000a40| 43 61 6c 64 61 79 0d 03 | 16 48 20 f2 53 75 6e 72 |Calday..|.H .Sunr|
|00000a50| 73 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s:. | |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 75 | | Su|
|00000a80| 6e 72 69 73 65 20 26 20 | 73 75 6e 73 65 74 0d 03 |nrise & |sunset..|
|00000a90| 20 17 20 e7 20 45 52 52 | 31 3c 3e 30 20 eb 30 3a | . . ERR|1<>0 .0:|
|00000aa0| e5 8d 64 40 4d 0d 03 2a | 32 20 58 44 3d 48 53 52 |..d@M..*|2 XD=HSR|
|00000ab0| 3a 58 4d 3d 4d 53 52 3a | 58 53 3d 53 53 52 3a 53 |:XM=MSR:|XS=SSR:S|
|00000ac0| 57 31 3d 2d 31 3a f2 4d | 69 6e 73 65 63 3a 48 53 |W1=-1:.M|insec:HS|
|00000ad0| 52 28 44 51 29 3d 58 0d | 03 34 32 20 58 44 3d 48 |R(DQ)=X.|.42 XD=H|
|00000ae0| 53 53 3a 58 4d 3d 4d 53 | 53 3a 58 53 3d 53 53 53 |SS:XM=MS|S:XS=SSS|
|00000af0| 3a 53 57 31 3d 2d 31 3a | f2 4d 69 6e 73 65 63 3a |:SW1=-1:|.Minsec:|
|00000b00| 48 53 53 28 44 51 29 3d | 58 0d 03 3e 06 20 3a 0d |HSS(DQ)=|X..>. :.|
|00000b10| 03 48 0b 20 f2 50 6c 61 | 6e 73 0d 03 52 4a 20 4c |.H. .Pla|ns..RJ L|
|00000b20| 50 44 30 28 44 51 29 3d | 4c 50 44 30 3a 50 53 49 |PD0(DQ)=|LPD0:PSI|
|00000b30| 30 28 44 51 29 3d 50 53 | 49 30 3a f4 20 20 20 20 |0(DQ)=PS|I0:. |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 48 65 6c 69 | | Heli|
|00000b50| 6f 63 65 6e 74 72 69 63 | 20 63 6f 6f 72 64 69 6e |ocentric| coordin|
|00000b60| 61 74 65 73 0d 03 5c 4a | 20 4c 41 4d 41 28 44 51 |ates..\J| LAMA(DQ|
|00000b70| 29 3d 4c 41 4d 3a 42 45 | 54 41 28 44 51 29 3d 42 |)=LAM:BE|TA(DQ)=B|
|00000b80| 45 54 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |ET:. | |
|00000b90| 20 20 20 20 20 20 20 20 | 47 65 6f 63 65 6e 74 72 | |Geocentr|
|00000ba0| 69 63 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 0d 03 |ic coord|inates..|
|00000bb0| 66 1e 20 f2 4e 75 74 61 | 74 3a 4c 41 4d 3d 4c 41 |f. .Nuta|t:LAM=LA|
|00000bc0| 4d 2b a4 52 41 44 28 44 | 50 53 49 29 0d 03 70 1f |M+.RAD(D|PSI)..p.|
|00000bd0| 20 41 3d 4c 47 2b af 2d | 4c 41 4d 3a 43 41 3d 9b | A=LG+.-|LAM:CA=.|
|00000be0| 28 41 29 3a 53 41 3d b5 | 28 41 29 0d 03 7a 22 20 |(A):SA=.|(A)..z" |
|00000bf0| 4c 41 4d 3d 4c 41 4d 2d | 28 39 2e 39 33 38 37 45 |LAM=LAM-|(9.9387E|
|00000c00| 2d 35 2a 43 41 2f 9b 28 | 42 45 54 29 29 0d 03 84 |-5*CA/.(|BET))...|
|00000c10| 22 20 42 45 54 3d 42 45 | 54 2d 28 39 2e 39 33 38 |" BET=BE|T-(9.938|
|00000c20| 37 45 2d 35 2a 53 41 2a | b5 28 42 45 54 29 29 0d |7E-5*SA*|.(BET)).|
|00000c30| 03 8e 32 20 58 3d 4c 41 | 4d 3a 59 3d 42 45 54 3a |..2 X=LA|M:Y=BET:|
|00000c40| 53 57 33 3d 2d 31 3a f2 | 45 71 65 63 6c 3a 4c 41 |SW3=-1:.|Eqecl:LA|
|00000c50| 4d 28 44 51 29 3d 50 3a | 42 45 54 28 44 51 29 3d |M(DQ)=P:|BET(DQ)=|
|00000c60| 51 0d 03 98 4a 20 4c 41 | 4d 42 28 44 51 29 3d 50 |Q...J LA|MB(DQ)=P|
|00000c70| 3a 42 45 54 42 28 44 51 | 29 3d 51 3a 4c 41 4d 43 |:BETB(DQ|)=Q:LAMC|
|00000c80| 28 44 51 29 3d 50 3a 42 | 45 54 43 28 44 51 29 3d |(DQ)=P:B|ETC(DQ)=|
|00000c90| 51 3a f4 20 20 45 71 75 | 61 74 6f 72 69 61 6c 20 |Q:. Equ|atorial |
|00000ca0| 63 6f 6f 72 64 69 6e 61 | 74 65 73 0d 03 a2 25 20 |coordina|tes...% |
|00000cb0| 43 45 4c 3d 2d 31 2a 43 | 59 2a 9b 28 4c 41 4d 2d |CEL=-1*C|Y*.(LAM-|
|00000cc0| 4c 47 29 3a 45 4c 3d a4 | 41 43 53 28 43 45 4c 29 |LG):EL=.|ACS(CEL)|
|00000cd0| 0d 03 ac 16 20 52 48 4f | 30 28 44 51 29 3d 52 48 |.... RHO|0(DQ)=RH|
|00000ce0| 4f 30 2a 31 45 32 0d 03 | b6 4a 20 58 3d a4 44 45 |O0*1E2..|.J X=.DE|
|00000cf0| 47 28 4c 41 4d 28 44 51 | 29 2f 31 35 29 3a 59 3d |G(LAM(DQ|)/15):Y=|
|00000d00| 42 45 54 28 44 51 29 3a | f4 20 20 20 20 20 20 20 |BET(DQ):|. |
|00000d10| 20 20 20 52 69 67 68 74 | 20 41 73 63 65 6e 73 69 | Right| Ascensi|
|00000d20| 6f 6e 20 26 20 44 65 63 | 6c 69 6e 61 74 69 6f 6e |on & Dec|lination|
|00000d30| 0d 03 c0 06 20 3a 0d 03 | ca 17 20 46 4c 41 47 28 |.... :..|.. FLAG(|
|00000d40| 29 3d 30 3a 46 4c 41 47 | 28 30 29 3d 31 0d 03 d4 |)=0:FLAG|(0)=1...|
|00000d50| 06 20 3a 0d 03 de 25 20 | 54 49 4d 3d 48 53 53 28 |. :...% |TIM=HSS(|
|00000d60| 44 51 29 3a 53 57 32 3d | 31 3a f2 47 74 69 6d 65 |DQ):SW2=|1:.Gtime|
|00000d70| 3a 47 53 54 3d 47 54 4d | 0d 03 e8 1e 20 58 3d a4 |:GST=GTM|.... X=.|
|00000d80| 44 45 47 28 4c 41 4d 28 | 44 51 29 2f 31 35 29 3a |DEG(LAM(|DQ)/15):|
|00000d90| f2 48 72 61 6e 67 0d 03 | f2 22 20 58 3d a4 52 41 |.Hrang..|." X=.RA|
|00000da0| 44 28 50 29 2a 31 35 3a | 59 3d 42 45 54 28 44 51 |D(P)*15:|Y=BET(DQ|
|00000db0| 29 3a f2 45 71 68 6f 72 | 0d 03 fc 48 20 58 3d a4 |):.Eqhor|...H X=.|
|00000dc0| 44 45 47 28 50 29 3a 51 | 3d a4 44 45 47 28 51 29 |DEG(P):Q|=.DEG(Q)|
|00000dd0| 3a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|00000de0| 20 20 20 20 20 20 41 6c | 74 2f 41 7a 20 6f 66 20 | Al|t/Az of |
|00000df0| 70 6c 61 6e 65 74 20 61 | 74 20 53 75 6e 73 65 74 |planet a|t Sunset|
|00000e00| 0d 04 06 23 20 41 5a 73 | 75 6e 73 65 74 28 44 51 |...# AZs|unset(DQ|
|00000e10| 29 3d 58 3a 41 4c 54 73 | 75 6e 73 65 74 28 44 51 |)=X:ALTs|unset(DQ|
|00000e20| 29 3d 51 0d 04 10 06 20 | 3a 0d 04 1a 17 20 46 4c |)=Q.... |:.... FL|
|00000e30| 41 47 28 29 3d 30 3a 46 | 4c 41 47 28 30 29 3d 31 |AG()=0:F|LAG(0)=1|
|00000e40| 0d 04 24 06 20 3a 0d 04 | 2e 20 20 54 49 4d 3d 30 |..$. :..|. TIM=0|
|00000e50| 3a 53 57 32 3d 2d 31 3a | f2 47 74 69 6d 65 3a 47 |:SW2=-1:|.Gtime:G|
|00000e60| 53 54 3d 47 54 4d 0d 04 | 38 1e 20 58 3d a4 44 45 |ST=GTM..|8. X=.DE|
|00000e70| 47 28 4c 41 4d 28 44 51 | 29 2f 31 35 29 3a f2 48 |G(LAM(DQ|)/15):.H|
|00000e80| 72 61 6e 67 0d 04 42 22 | 20 58 3d a4 52 41 44 28 |rang..B"| X=.RAD(|
|00000e90| 50 29 2a 31 35 3a 59 3d | 42 45 54 28 44 51 29 3a |P)*15:Y=|BET(DQ):|
|00000ea0| f2 45 71 68 6f 72 0d 04 | 4c 49 20 58 3d a4 44 45 |.Eqhor..|LI X=.DE|
|00000eb0| 47 28 50 29 3a 51 3d a4 | 44 45 47 28 51 29 3a f4 |G(P):Q=.|DEG(Q):.|
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ed0| 20 20 20 41 6c 74 2f 41 | 7a 20 6f 66 20 70 6c 61 | Alt/A|z of pla|
|00000ee0| 6e 65 74 20 61 74 20 4d | 69 64 6e 69 67 68 74 0d |net at M|idnight.|
|00000ef0| 04 56 27 20 41 5a 6d 69 | 64 6e 69 67 68 74 28 44 |.V' AZmi|dnight(D|
|00000f00| 51 29 3d 58 3a 41 4c 54 | 6d 69 64 6e 69 67 68 74 |Q)=X:ALT|midnight|
|00000f10| 28 44 51 29 3d 51 0d 04 | 60 06 20 3a 0d 04 6a 17 |(DQ)=Q..|`. :..j.|
|00000f20| 20 46 4c 41 47 28 29 3d | 30 3a 46 4c 41 47 28 30 | FLAG()=|0:FLAG(0|
|00000f30| 29 3d 31 0d 04 74 06 20 | 3a 0d 04 7e 25 20 54 49 |)=1..t. |:..~% TI|
|00000f40| 4d 3d 48 53 52 28 44 51 | 29 3a 53 57 32 3d 31 3a |M=HSR(DQ|):SW2=1:|
|00000f50| f2 47 74 69 6d 65 3a 47 | 53 54 3d 47 54 4d 0d 04 |.Gtime:G|ST=GTM..|
|00000f60| 88 1e 20 58 3d a4 44 45 | 47 28 4c 41 4d 28 44 51 |.. X=.DE|G(LAM(DQ|
|00000f70| 29 2f 31 35 29 3a f2 48 | 72 61 6e 67 0d 04 92 22 |)/15):.H|rang..."|
|00000f80| 20 58 3d a4 52 41 44 28 | 50 29 2a 31 35 3a 59 3d | X=.RAD(|P)*15:Y=|
|00000f90| 42 45 54 28 44 51 29 3a | f2 45 71 68 6f 72 0d 04 |BET(DQ):|.Eqhor..|
|00000fa0| 9c 49 20 58 3d a4 44 45 | 47 28 50 29 3a 51 3d a4 |.I X=.DE|G(P):Q=.|
|00000fb0| 44 45 47 28 51 29 3a f4 | 20 20 20 20 20 20 20 20 |DEG(Q):.| |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 6c 74 2f | | Alt/|
|00000fd0| 41 7a 20 6f 66 20 70 6c | 61 6e 65 74 20 61 74 20 |Az of pl|anet at |
|00000fe0| 53 75 6e 72 69 73 65 0d | 04 a6 25 20 41 5a 73 75 |Sunrise.|..% AZsu|
|00000ff0| 6e 72 69 73 65 28 44 51 | 29 3d 58 3a 41 4c 54 73 |nrise(DQ|)=X:ALTs|
|00001000| 75 6e 72 69 73 65 28 44 | 51 29 3d 51 0d 04 b0 06 |unrise(D|Q)=Q....|
|00001010| 20 3a 0d 04 ba 09 20 ed | 20 44 51 0d 04 c4 06 20 | :.... .| DQ.... |
|00001020| 3a 0d 04 ce 33 20 e3 4a | 3d 31 b8 50 51 3a 61 25 |:...3 .J|=1.PQ:a%|
|00001030| 21 28 4a 2a 38 2d 34 29 | 3d 4a 3a 61 25 21 28 4a |!(J*8-4)|=J:a%!(J|
|00001040| 2a 38 29 3d a8 28 4c 41 | 4d 41 28 4a 29 2a 31 45 |*8)=.(LA|MA(J)*1E|
|00001050| 36 29 3a ed 0d 04 d8 0a | 20 41 25 3d 61 25 0d 04 |6):.....| A%=a%..|
|00001060| e2 09 20 42 25 3d 31 0d | 04 ec 0a 20 43 25 3d 50 |.. B%=1.|... C%=P|
|00001070| 51 0d 04 f6 47 20 d6 20 | 71 73 6f 72 74 3a f4 20 |Q...G . |qsort:. |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001090| 20 20 20 20 20 20 20 53 | 6f 72 74 69 6e 67 20 62 | S|orting b|
|000010a0| 79 20 67 65 6f 63 65 6e | 74 72 69 63 20 63 6f 6f |y geocen|tric coo|
|000010b0| 72 64 69 6e 61 74 65 73 | 0d 05 00 06 20 3a 0d 05 |rdinates|.... :..|
|000010c0| 0a 44 20 e3 4a 3d 31 b8 | 50 51 3a 4c 41 4d 41 28 |.D .J=1.|PQ:LAMA(|
|000010d0| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 45 36 3a |J)=a%!(J|*8)/1E6:|
|000010e0| ed 3a 4c 41 4d 41 6d 61 | 78 3d 4c 41 4d 41 28 50 |.:LAMAma|x=LAMA(P|
|000010f0| 51 29 3a 4c 41 4d 41 6d | 69 6e 3d 4c 41 4d 41 28 |Q):LAMAm|in=LAMA(|
|00001100| 31 29 0d 05 14 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |1)...8 .|J=1.PQ:S|
|00001110| 50 28 4a 29 3d 44 41 54 | 45 28 61 25 21 28 4a 2a |P(J)=DAT|E(a%!(J*|
|00001120| 38 2d 34 29 29 3a ed 3a | 44 41 54 45 28 29 3d 53 |8-4)):.:|DATE()=S|
|00001130| 50 28 29 3a 53 50 28 29 | 3d 30 0d 05 1e 32 20 e3 |P():SP()|=0...2 .|
|00001140| 4a 3d 31 b8 50 51 3a 61 | 25 21 28 4a 2a 38 29 3d |J=1.PQ:a|%!(J*8)=|
|00001150| a8 28 44 41 54 45 28 4a | 29 2a 31 30 29 3a 61 25 |.(DATE(J|)*10):a%|
|00001160| 21 28 4a 2a 38 2d 34 29 | 3d 4a 3a ed 0d 05 28 0a |!(J*8-4)|=J:...(.|
|00001170| 20 41 25 3d 61 25 0d 05 | 32 09 20 42 25 3d 31 0d | A%=a%..|2. B%=1.|
|00001180| 05 3c 0a 20 43 25 3d 50 | 51 0d 05 46 47 20 d6 20 |.<. C%=P|Q..FG . |
|00001190| 71 73 6f 72 74 3a f4 20 | 20 20 20 20 20 20 20 20 |qsort:. | |
|000011a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 52 65 2d 73 6f | | Re-so|
|000011c0| 72 74 20 69 6e 20 64 61 | 74 65 20 6f 72 64 65 72 |rt in da|te order|
|000011d0| 0d 05 50 06 20 3a 0d 05 | 5a 22 20 e3 4a 3d 31 b8 |..P. :..|Z" .J=1.|
|000011e0| 50 51 3a 44 41 54 45 28 | 4a 29 3d 61 25 21 28 4a |PQ:DATE(|J)=a%!(J|
|000011f0| 2a 38 29 2f 31 30 3a ed | 0d 05 64 38 20 e3 4a 3d |*8)/10:.|..d8 .J=|
|00001200| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 4c 41 4d 41 28 |1.PQ:SP(|J)=LAMA(|
|00001210| 61 25 21 28 4a 2a 38 2d | 34 29 29 3a ed 3a 4c 41 |a%!(J*8-|4)):.:LA|
|00001220| 4d 41 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |MA()=SP(|):SP()=0|
|00001230| 0d 05 6e 06 20 3a 0d 05 | 78 33 20 e3 4a 3d 31 b8 |..n. :..|x3 .J=1.|
|00001240| 50 51 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |PQ:a%!(J|*8-4)=J:|
|00001250| 61 25 21 28 4a 2a 38 29 | 3d a8 28 4c 41 4d 43 28 |a%!(J*8)|=.(LAMC(|
|00001260| 4a 29 2a 31 45 36 29 3a | ed 0d 05 82 0a 20 41 25 |J)*1E6):|..... A%|
|00001270| 3d 61 25 0d 05 8c 09 20 | 42 25 3d 31 0d 05 96 0a |=a%.... |B%=1....|
|00001280| 20 43 25 3d 50 51 0d 05 | a0 47 20 d6 20 71 73 6f | C%=PQ..|.G . qso|
|00001290| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 6f 72 74 | | Sort|
|000012b0| 69 6e 67 20 62 79 20 65 | 71 75 61 74 6f 72 69 61 |ing by e|quatoria|
|000012c0| 6c 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 0d 05 aa |l coordi|nates...|
|000012d0| 06 20 3a 0d 05 b4 44 20 | e3 4a 3d 31 b8 50 51 3a |. :...D |.J=1.PQ:|
|000012e0| 4c 41 4d 43 28 4a 29 3d | 61 25 21 28 4a 2a 38 29 |LAMC(J)=|a%!(J*8)|
|000012f0| 2f 31 45 36 3a ed 3a 4c | 41 4d 43 6d 61 78 3d 4c |/1E6:.:L|AMCmax=L|
|00001300| 41 4d 43 28 50 51 29 3a | 4c 41 4d 43 6d 69 6e 3d |AMC(PQ):|LAMCmin=|
|00001310| 4c 41 4d 43 28 31 29 0d | 05 be 38 20 e3 4a 3d 31 |LAMC(1).|..8 .J=1|
|00001320| b8 50 51 3a 53 50 28 4a | 29 3d 44 41 54 45 28 61 |.PQ:SP(J|)=DATE(a|
|00001330| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 44 41 54 |%!(J*8-4|)):.:DAT|
|00001340| 45 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |E()=SP()|:SP()=0.|
|00001350| 05 c8 32 20 e3 4a 3d 31 | b8 50 51 3a 61 25 21 28 |..2 .J=1|.PQ:a%!(|
|00001360| 4a 2a 38 29 3d a8 28 44 | 41 54 45 28 4a 29 2a 31 |J*8)=.(D|ATE(J)*1|
|00001370| 30 29 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |0):a%!(J|*8-4)=J:|
|00001380| ed 0d 05 d2 0a 20 41 25 | 3d 61 25 0d 05 dc 09 20 |..... A%|=a%.... |
|00001390| 42 25 3d 31 0d 05 e6 0a | 20 43 25 3d 50 51 0d 05 |B%=1....| C%=PQ..|
|000013a0| f0 47 20 d6 20 71 73 6f | 72 74 3a f4 20 20 20 20 |.G . qso|rt:. |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013d0| 52 65 2d 73 6f 72 74 20 | 69 6e 20 64 61 74 65 20 |Re-sort |in date |
|000013e0| 6f 72 64 65 72 0d 05 fa | 06 20 3a 0d 06 04 22 20 |order...|. :..." |
|000013f0| e3 4a 3d 31 b8 50 51 3a | 44 41 54 45 28 4a 29 3d |.J=1.PQ:|DATE(J)=|
|00001400| 61 25 21 28 4a 2a 38 29 | 2f 31 30 3a ed 0d 06 0e |a%!(J*8)|/10:....|
|00001410| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|00001420| 4c 41 4d 43 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |LAMC(a%!|(J*8-4))|
|00001430| 3a ed 3a 4c 41 4d 43 28 | 29 3d 53 50 28 29 3a 53 |:.:LAMC(|)=SP():S|
|00001440| 50 28 29 3d 30 0d 06 18 | 06 20 3a 0d 06 22 06 20 |P()=0...|. :..". |
|00001450| 3a 0d 06 2c 33 20 e3 4a | 3d 31 b8 50 51 3a 61 25 |:..,3 .J|=1.PQ:a%|
|00001460| 21 28 4a 2a 38 2d 34 29 | 3d 4a 3a 61 25 21 28 4a |!(J*8-4)|=J:a%!(J|
|00001470| 2a 38 29 3d a8 28 4c 50 | 44 30 28 4a 29 2a 31 45 |*8)=.(LP|D0(J)*1E|
|00001480| 36 29 3a ed 0d 06 36 0a | 20 41 25 3d 61 25 0d 06 |6):...6.| A%=a%..|
|00001490| 40 09 20 42 25 3d 31 0d | 06 4a 0a 20 43 25 3d 50 |@. B%=1.|.J. C%=P|
|000014a0| 51 0d 06 54 47 20 d6 20 | 71 73 6f 72 74 3a f4 20 |Q..TG . |qsort:. |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000014c0| 20 20 20 20 20 53 6f 72 | 74 69 6e 67 20 62 79 20 | Sor|ting by |
|000014d0| 68 65 6c 69 6f 63 65 6e | 74 72 69 63 20 63 6f 6f |heliocen|tric coo|
|000014e0| 72 64 69 6e 61 74 65 73 | 0d 06 5e 06 20 3a 0d 06 |rdinates|..^. :..|
|000014f0| 68 44 20 e3 4a 3d 31 b8 | 50 51 3a 4c 50 44 30 28 |hD .J=1.|PQ:LPD0(|
|00001500| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 45 36 3a |J)=a%!(J|*8)/1E6:|
|00001510| ed 3a 4c 50 44 30 6d 61 | 78 3d 4c 50 44 30 28 50 |.:LPD0ma|x=LPD0(P|
|00001520| 51 29 3a 4c 50 44 30 6d | 69 6e 3d 4c 50 44 30 28 |Q):LPD0m|in=LPD0(|
|00001530| 31 29 0d 06 72 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |1)..r8 .|J=1.PQ:S|
|00001540| 50 28 4a 29 3d 44 41 54 | 45 28 61 25 21 28 4a 2a |P(J)=DAT|E(a%!(J*|
|00001550| 38 2d 34 29 29 3a ed 3a | 44 41 54 45 28 29 3d 53 |8-4)):.:|DATE()=S|
|00001560| 50 28 29 3a 53 50 28 29 | 3d 30 0d 06 7c 06 20 3a |P():SP()|=0..|. :|
|00001570| 0d 06 86 32 20 e3 4a 3d | 31 b8 50 51 3a 61 25 21 |...2 .J=|1.PQ:a%!|
|00001580| 28 4a 2a 38 29 3d a8 28 | 44 41 54 45 28 4a 29 2a |(J*8)=.(|DATE(J)*|
|00001590| 31 30 29 3a 61 25 21 28 | 4a 2a 38 2d 34 29 3d 4a |10):a%!(|J*8-4)=J|
|000015a0| 3a ed 0d 06 90 0a 20 41 | 25 3d 61 25 0d 06 9a 09 |:..... A|%=a%....|
|000015b0| 20 42 25 3d 31 0d 06 a4 | 0a 20 43 25 3d 50 51 0d | B%=1...|. C%=PQ.|
|000015c0| 06 ae 46 20 d6 20 71 73 | 6f 72 74 3a f4 20 20 20 |..F . qs|ort:. |
|000015d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015f0| 52 65 2d 73 6f 72 74 20 | 69 6e 20 64 61 74 65 20 |Re-sort |in date |
|00001600| 6f 72 64 65 72 0d 06 b8 | 06 20 3a 0d 06 c2 22 20 |order...|. :..." |
|00001610| e3 4a 3d 31 b8 50 51 3a | 44 41 54 45 28 4a 29 3d |.J=1.PQ:|DATE(J)=|
|00001620| 61 25 21 28 4a 2a 38 29 | 2f 31 30 3a ed 0d 06 cc |a%!(J*8)|/10:....|
|00001630| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|00001640| 4c 50 44 30 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |LPD0(a%!|(J*8-4))|
|00001650| 3a ed 3a 4c 50 44 30 28 | 29 3d 53 50 28 29 3a 53 |:.:LPD0(|)=SP():S|
|00001660| 50 28 29 3d 30 0d 06 d6 | 06 20 3a 0d 06 e0 06 20 |P()=0...|. :.... |
|00001670| 3a 0d 06 ea 33 20 e3 4a | 3d 31 b8 50 51 3a 61 25 |:...3 .J|=1.PQ:a%|
|00001680| 21 28 4a 2a 38 2d 34 29 | 3d 4a 3a 61 25 21 28 4a |!(J*8-4)|=J:a%!(J|
|00001690| 2a 38 29 3d a8 28 52 48 | 4f 30 28 4a 29 2a 31 45 |*8)=.(RH|O0(J)*1E|
|000016a0| 36 29 3a ed 0d 06 f4 0a | 20 41 25 3d 61 25 0d 06 |6):.....| A%=a%..|
|000016b0| fe 09 20 42 25 3d 31 0d | 07 08 0a 20 43 25 3d 50 |.. B%=1.|... C%=P|
|000016c0| 51 0d 07 12 46 20 d6 20 | 71 73 6f 72 74 3a f4 20 |Q...F . |qsort:. |
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016f0| 20 20 20 20 53 6f 72 74 | 69 6e 67 20 62 79 20 64 | Sort|ing by d|
|00001700| 69 73 74 61 6e 63 65 0d | 07 1c 06 20 3a 0d 07 26 |istance.|... :..&|
|00001710| 44 20 e3 4a 3d 31 b8 50 | 51 3a 52 48 4f 30 28 4a |D .J=1.P|Q:RHO0(J|
|00001720| 29 3d 61 25 21 28 4a 2a | 38 29 2f 31 45 36 3a ed |)=a%!(J*|8)/1E6:.|
|00001730| 3a 52 48 4f 30 6d 61 78 | 3d 52 48 4f 30 28 50 51 |:RHO0max|=RHO0(PQ|
|00001740| 29 3a 52 48 4f 30 6d 69 | 6e 3d 52 48 4f 30 28 31 |):RHO0mi|n=RHO0(1|
|00001750| 29 0d 07 30 38 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |)..08 .J|=1.PQ:SP|
|00001760| 28 4a 29 3d 44 41 54 45 | 28 61 25 21 28 4a 2a 38 |(J)=DATE|(a%!(J*8|
|00001770| 2d 34 29 29 3a ed 3a 44 | 41 54 45 28 29 3d 53 50 |-4)):.:D|ATE()=SP|
|00001780| 28 29 3a 53 50 28 29 3d | 30 0d 07 3a 3a 20 e3 4a |():SP()=|0..:: .J|
|00001790| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 44 41 54 45 |=1.PQ:SP|(J)=DATE|
|000017a0| 41 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |A(a%!(J*|8-4)):.:|
|000017b0| 44 41 54 45 41 28 29 3d | 53 50 28 29 3a 53 50 28 |DATEA()=|SP():SP(|
|000017c0| 29 3d 30 0d 07 44 36 20 | e3 4a 3d 31 b8 50 51 3a |)=0..D6 |.J=1.PQ:|
|000017d0| 53 50 28 4a 29 3d 4c 41 | 4d 28 61 25 21 28 4a 2a |SP(J)=LA|M(a%!(J*|
|000017e0| 38 2d 34 29 29 3a ed 3a | 4c 41 4d 28 29 3d 53 50 |8-4)):.:|LAM()=SP|
|000017f0| 28 29 3a 53 50 28 29 3d | 30 0d 07 4e 38 20 e3 4a |():SP()=|0..N8 .J|
|00001800| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 4c 41 4d 42 |=1.PQ:SP|(J)=LAMB|
|00001810| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 4c |(a%!(J*8|-4)):.:L|
|00001820| 41 4d 42 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |AMB()=SP|():SP()=|
|00001830| 30 0d 07 58 36 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0..X6 .J|=1.PQ:SP|
|00001840| 28 4a 29 3d 42 45 54 28 | 61 25 21 28 4a 2a 38 2d |(J)=BET(|a%!(J*8-|
|00001850| 34 29 29 3a ed 3a 42 45 | 54 28 29 3d 53 50 28 29 |4)):.:BE|T()=SP()|
|00001860| 3a 53 50 28 29 3d 30 0d | 07 62 38 20 e3 4a 3d 31 |:SP()=0.|.b8 .J=1|
|00001870| b8 50 51 3a 53 50 28 4a | 29 3d 42 45 54 42 28 61 |.PQ:SP(J|)=BETB(a|
|00001880| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 42 45 54 |%!(J*8-4|)):.:BET|
|00001890| 42 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |B()=SP()|:SP()=0.|
|000018a0| 07 6c 36 20 e3 4a 3d 31 | b8 50 51 3a 53 50 28 4a |.l6 .J=1|.PQ:SP(J|
|000018b0| 29 3d 48 53 53 28 61 25 | 21 28 4a 2a 38 2d 34 29 |)=HSS(a%|!(J*8-4)|
|000018c0| 29 3a ed 3a 48 53 53 28 | 29 3d 53 50 28 29 3a 53 |):.:HSS(|)=SP():S|
|000018d0| 50 28 29 3d 30 0d 07 76 | 36 20 e3 4a 3d 31 b8 50 |P()=0..v|6 .J=1.P|
|000018e0| 51 3a 53 50 28 4a 29 3d | 48 53 52 28 61 25 21 28 |Q:SP(J)=|HSR(a%!(|
|000018f0| 4a 2a 38 2d 34 29 29 3a | ed 3a 48 53 52 28 29 3d |J*8-4)):|.:HSR()=|
|00001900| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 07 80 40 20 |SP():SP(|)=0...@ |
|00001910| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 41 5a |.J=1.PQ:|SP(J)=AZ|
|00001920| 73 75 6e 73 65 74 28 61 | 25 21 28 4a 2a 38 2d 34 |sunset(a|%!(J*8-4|
|00001930| 29 29 3a ed 3a 41 5a 73 | 75 6e 73 65 74 28 29 3d |)):.:AZs|unset()=|
|00001940| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 07 8a 44 20 |SP():SP(|)=0...D |
|00001950| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 41 5a |.J=1.PQ:|SP(J)=AZ|
|00001960| 6d 69 64 6e 69 67 68 74 | 28 61 25 21 28 4a 2a 38 |midnight|(a%!(J*8|
|00001970| 2d 34 29 29 3a ed 3a 41 | 5a 6d 69 64 6e 69 67 68 |-4)):.:A|Zmidnigh|
|00001980| 74 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |t()=SP()|:SP()=0.|
|00001990| 07 94 42 20 e3 4a 3d 31 | b8 50 51 3a 53 50 28 4a |..B .J=1|.PQ:SP(J|
|000019a0| 29 3d 41 5a 73 75 6e 72 | 69 73 65 28 61 25 21 28 |)=AZsunr|ise(a%!(|
|000019b0| 4a 2a 38 2d 34 29 29 3a | ed 3a 41 5a 73 75 6e 72 |J*8-4)):|.:AZsunr|
|000019c0| 69 73 65 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |ise()=SP|():SP()=|
|000019d0| 30 0d 07 9e 42 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0...B .J|=1.PQ:SP|
|000019e0| 28 4a 29 3d 41 4c 54 73 | 75 6e 73 65 74 28 61 25 |(J)=ALTs|unset(a%|
|000019f0| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 41 4c 54 73 |!(J*8-4)|):.:ALTs|
|00001a00| 75 6e 73 65 74 28 29 3d | 53 50 28 29 3a 53 50 28 |unset()=|SP():SP(|
|00001a10| 29 3d 30 0d 07 a8 46 20 | e3 4a 3d 31 b8 50 51 3a |)=0...F |.J=1.PQ:|
|00001a20| 53 50 28 4a 29 3d 41 4c | 54 6d 69 64 6e 69 67 68 |SP(J)=AL|Tmidnigh|
|00001a30| 74 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |t(a%!(J*|8-4)):.:|
|00001a40| 41 4c 54 6d 69 64 6e 69 | 67 68 74 28 29 3d 53 50 |ALTmidni|ght()=SP|
|00001a50| 28 29 3a 53 50 28 29 3d | 30 0d 07 b2 44 20 e3 4a |():SP()=|0...D .J|
|00001a60| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 41 4c 54 73 |=1.PQ:SP|(J)=ALTs|
|00001a70| 75 6e 72 69 73 65 28 61 | 25 21 28 4a 2a 38 2d 34 |unrise(a|%!(J*8-4|
|00001a80| 29 29 3a ed 3a 41 4c 54 | 73 75 6e 72 69 73 65 28 |)):.:ALT|sunrise(|
|00001a90| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 07 bc |)=SP():S|P()=0...|
|00001aa0| 06 20 3a 0d 07 c6 47 20 | 44 4a 44 3d 44 41 54 45 |. :...G |DJD=DATE|
|00001ab0| 28 31 29 3a 46 4c 41 47 | 28 32 29 3d 30 3a f2 43 |(1):FLAG|(2)=0:.C|
|00001ac0| 61 6c 64 61 79 3a f4 20 | 20 20 20 44 61 74 65 20 |alday:. | Date |
|00001ad0| 6f 66 20 6d 69 6e 20 64 | 69 73 74 61 6e 63 65 20 |of min d|istance |
|00001ae0| 66 72 6f 6d 20 45 61 72 | 74 68 0d 07 d0 1f 20 58 |from Ear|th.... X|
|00001af0| 44 3d 44 59 3a 58 4d 3d | 4d 4e 3a 58 53 3d 59 52 |D=DY:XM=|MN:XS=YR|
|00001b00| 3a f2 53 74 72 69 6e 67 | 73 0d 07 da 22 20 44 59 |:.String|s..." DY|
|00001b10| 45 4c 24 3d 58 44 24 3a | 4d 4e 45 4c 24 3d 58 4d |EL$=XD$:|MNEL$=XM|
|00001b20| 24 3a 59 52 45 4c 24 3d | 58 53 24 0d 07 e4 06 20 |$:YREL$=|XS$.... |
|00001b30| 3a 0d 07 ee 25 20 58 3d | 48 53 52 28 50 51 29 3a |:...% X=|HSR(PQ):|
|00001b40| 53 57 31 3d 31 3a f2 4d | 69 6e 73 65 63 3a f2 53 |SW1=1:.M|insec:.S|
|00001b50| 74 72 69 6e 67 73 0d 07 | f8 4a 20 48 52 24 3d 58 |trings..|.J HR$=X|
|00001b60| 44 24 3a 4d 52 24 3d 58 | 4d 24 3a 53 52 24 3d 58 |D$:MR$=X|M$:SR$=X|
|00001b70| 53 24 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |S$:. | |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b90| 20 20 20 20 20 20 20 20 | 20 53 75 6e 72 69 73 65 | | Sunrise|
|00001ba0| 0d 08 02 25 20 58 3d 48 | 53 53 28 50 51 29 3a 53 |...% X=H|SS(PQ):S|
|00001bb0| 57 31 3d 31 3a f2 4d 69 | 6e 73 65 63 3a f2 53 74 |W1=1:.Mi|nsec:.St|
|00001bc0| 72 69 6e 67 73 0d 08 0c | 4a 20 48 53 24 3d 58 44 |rings...|J HS$=XD|
|00001bd0| 24 3a 4d 53 24 3d 58 4d | 24 3a 53 53 24 3d 58 53 |$:MS$=XM|$:SS$=XS|
|00001be0| 24 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$:. | |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c00| 20 20 20 20 20 20 20 20 | 20 53 75 6e 73 65 74 0d | | Sunset.|
|00001c10| 08 16 06 20 3a 0d 08 20 | 2b 20 58 3d 41 5a 73 75 |... :.. |+ X=AZsu|
|00001c20| 6e 72 69 73 65 28 50 51 | 29 3a 53 57 31 3d 31 3a |nrise(PQ|):SW1=1:|
|00001c30| f2 4d 69 6e 73 65 63 3a | f2 53 74 72 69 6e 67 73 |.Minsec:|.Strings|
|00001c40| 0d 08 2a 35 20 41 5a 78 | 64 48 53 52 6d 61 78 24 |..*5 AZx|dHSRmax$|
|00001c50| 3d 58 44 24 3a 41 5a 78 | 6d 48 53 52 6d 61 78 24 |=XD$:AZx|mHSRmax$|
|00001c60| 3d 58 4d 24 3a 41 5a 73 | 65 63 48 53 52 6d 61 78 |=XM$:AZs|ecHSRmax|
|00001c70| 24 3d 58 53 24 0d 08 34 | 2c 20 58 3d 41 4c 54 73 |$=XS$..4|, X=ALTs|
|00001c80| 75 6e 72 69 73 65 28 50 | 51 29 3a 53 57 31 3d 31 |unrise(P|Q):SW1=1|
|00001c90| 3a f2 4d 69 6e 73 65 63 | 3a f2 53 74 72 69 6e 67 |:.Minsec|:.String|
|00001ca0| 73 0d 08 3e 41 20 53 48 | 53 52 24 3d 53 24 3a 41 |s..>A SH|SR$=S$:A|
|00001cb0| 4c 54 78 64 48 53 52 6d | 61 78 24 3d 58 44 24 3a |LTxdHSRm|ax$=XD$:|
|00001cc0| 41 4c 54 78 6d 48 53 52 | 6d 61 78 24 3d 58 4d 24 |ALTxmHSR|max$=XM$|
|00001cd0| 3a 41 4c 54 73 65 63 48 | 53 52 6d 61 78 24 3d 58 |:ALTsecH|SRmax$=X|
|00001ce0| 53 24 0d 08 48 2a 20 58 | 3d 41 5a 73 75 6e 73 65 |S$..H* X|=AZsunse|
|00001cf0| 74 28 50 51 29 3a 53 57 | 31 3d 31 3a f2 4d 69 6e |t(PQ):SW|1=1:.Min|
|00001d00| 73 65 63 3a f2 53 74 72 | 69 6e 67 73 0d 08 52 35 |sec:.Str|ings..R5|
|00001d10| 20 41 5a 78 64 48 53 53 | 6d 61 78 24 3d 58 44 24 | AZxdHSS|max$=XD$|
|00001d20| 3a 41 5a 78 6d 48 53 53 | 6d 61 78 24 3d 58 4d 24 |:AZxmHSS|max$=XM$|
|00001d30| 3a 41 5a 73 65 63 48 53 | 53 6d 61 78 24 3d 58 53 |:AZsecHS|Smax$=XS|
|00001d40| 24 0d 08 5c 2b 20 58 3d | 41 4c 54 73 75 6e 73 65 |$..\+ X=|ALTsunse|
|00001d50| 74 28 50 51 29 3a 53 57 | 31 3d 31 3a f2 4d 69 6e |t(PQ):SW|1=1:.Min|
|00001d60| 73 65 63 3a f2 53 74 72 | 69 6e 67 73 0d 08 66 41 |sec:.Str|ings..fA|
|00001d70| 20 53 48 53 53 24 3d 53 | 24 3a 41 4c 54 78 64 48 | SHSS$=S|$:ALTxdH|
|00001d80| 53 53 6d 61 78 24 3d 58 | 44 24 3a 41 4c 54 78 6d |SSmax$=X|D$:ALTxm|
|00001d90| 48 53 53 6d 61 78 24 3d | 58 4d 24 3a 41 4c 54 73 |HSSmax$=|XM$:ALTs|
|00001da0| 65 63 48 53 53 6d 61 78 | 24 3d 58 53 24 0d 08 70 |ecHSSmax|$=XS$..p|
|00001db0| 06 20 3a 0d 08 7a 10 20 | f2 45 6c 6f 6e 67 61 74 |. :..z. |.Elongat|
|00001dc0| 69 6f 6e 0d 08 84 06 20 | 3a 0d 08 8e 39 20 e3 4a |ion.... |:...9 .J|
|00001dd0| 3d 31 b8 50 51 3a 61 25 | 21 28 4a 2a 38 29 3d a8 |=1.PQ:a%|!(J*8)=.|
|00001de0| 28 41 4c 54 73 75 6e 72 | 69 73 65 28 4a 29 2a 31 |(ALTsunr|ise(J)*1|
|00001df0| 45 36 29 3a 61 25 21 28 | 4a 2a 38 2d 34 29 3d 4a |E6):a%!(|J*8-4)=J|
|00001e00| 3a ed 0d 08 98 0a 20 41 | 25 3d 61 25 0d 08 a2 09 |:..... A|%=a%....|
|00001e10| 20 42 25 3d 31 0d 08 ac | 0a 20 43 25 3d 50 51 0d | B%=1...|. C%=PQ.|
|00001e20| 08 b6 46 20 d6 20 71 73 | 6f 72 74 3a f4 20 20 20 |..F . qs|ort:. |
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 6f 72 | | Sor|
|00001e40| 74 69 6e 67 20 62 79 20 | 61 6c 74 69 74 75 64 65 |ting by |altitude|
|00001e50| 20 6f 66 20 70 6c 61 6e | 65 74 20 61 74 20 73 75 | of plan|et at su|
|00001e60| 6e 72 69 73 65 0d 08 c0 | 06 20 3a 0d 08 ca 29 20 |nrise...|. :...) |
|00001e70| e3 4a 3d 31 b8 50 51 3a | 41 4c 54 73 75 6e 72 69 |.J=1.PQ:|ALTsunri|
|00001e80| 73 65 28 4a 29 3d 61 25 | 21 28 4a 2a 38 29 2f 31 |se(J)=a%|!(J*8)/1|
|00001e90| 45 36 3a ed 0d 08 d4 38 | 20 e3 4a 3d 31 b8 50 51 |E6:....8| .J=1.PQ|
|00001ea0| 3a 53 50 28 4a 29 3d 52 | 48 4f 30 28 61 25 21 28 |:SP(J)=R|HO0(a%!(|
|00001eb0| 4a 2a 38 2d 34 29 29 3a | ed 3a 52 48 4f 30 28 29 |J*8-4)):|.:RHO0()|
|00001ec0| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 08 de 46 |=SP():SP|()=0...F|
|00001ed0| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 41 | .J=1.PQ|:SP(J)=A|
|00001ee0| 4c 54 6d 69 64 6e 69 67 | 68 74 28 61 25 21 28 4a |LTmidnig|ht(a%!(J|
|00001ef0| 2a 38 2d 34 29 29 3a ed | 3a 41 4c 54 6d 69 64 6e |*8-4)):.|:ALTmidn|
|00001f00| 69 67 68 74 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |ight()=S|P():SP()|
|00001f10| 3d 30 0d 08 e8 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...8 .|J=1.PQ:S|
|00001f20| 50 28 4a 29 3d 44 41 54 | 45 28 61 25 21 28 4a 2a |P(J)=DAT|E(a%!(J*|
|00001f30| 38 2d 34 29 29 3a ed 3a | 44 41 54 45 28 29 3d 53 |8-4)):.:|DATE()=S|
|00001f40| 50 28 29 3a 53 50 28 29 | 3d 30 0d 08 f2 42 20 e3 |P():SP()|=0...B .|
|00001f50| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 41 5a 73 |J=1.PQ:S|P(J)=AZs|
|00001f60| 75 6e 72 69 73 65 28 61 | 25 21 28 4a 2a 38 2d 34 |unrise(a|%!(J*8-4|
|00001f70| 29 29 3a ed 3a 41 5a 73 | 75 6e 72 69 73 65 28 29 |)):.:AZs|unrise()|
|00001f80| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 08 fc 36 |=SP():SP|()=0...6|
|00001f90| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 48 | .J=1.PQ|:SP(J)=H|
|00001fa0| 53 52 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |SR(a%!(J|*8-4)):.|
|00001fb0| 3a 48 53 52 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |:HSR()=S|P():SP()|
|00001fc0| 3d 30 0d 09 06 36 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...6 .|J=1.PQ:S|
|00001fd0| 50 28 4a 29 3d 4c 41 4d | 28 61 25 21 28 4a 2a 38 |P(J)=LAM|(a%!(J*8|
|00001fe0| 2d 34 29 29 3a ed 3a 4c | 41 4d 28 29 3d 53 50 28 |-4)):.:L|AM()=SP(|
|00001ff0| 29 3a 53 50 28 29 3d 30 | 0d 09 10 36 20 e3 4a 3d |):SP()=0|...6 .J=|
|00002000| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 42 45 54 28 61 |1.PQ:SP(|J)=BET(a|
|00002010| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 42 45 54 |%!(J*8-4|)):.:BET|
|00002020| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 09 |()=SP():|SP()=0..|
|00002030| 1a 06 20 3a 0d 09 24 17 | 20 50 51 53 3d 41 4c 54 |.. :..$.| PQS=ALT|
|00002040| 73 75 6e 72 69 73 65 28 | 50 51 29 0d 09 2e 06 20 |sunrise(|PQ).... |
|00002050| 3a 0d 09 38 17 20 46 4c | 41 47 28 29 3d 30 3a 46 |:..8. FL|AG()=0:F|
|00002060| 4c 41 47 28 30 29 3d 31 | 0d 09 42 06 20 3a 0d 09 |LAG(0)=1|..B. :..|
|00002070| 4c 25 20 44 4a 44 3d 44 | 41 54 45 28 50 51 29 3a |L% DJD=D|ATE(PQ):|
|00002080| 54 49 4d 3d 48 53 52 28 | 50 51 29 2d 31 3a 53 57 |TIM=HSR(|PQ)-1:SW|
|00002090| 32 3d 31 0d 09 56 1b 20 | f2 43 61 6c 64 61 79 3a |2=1..V. |.Calday:|
|000020a0| f2 47 74 69 6d 65 3a 47 | 53 54 3d 47 54 4d 0d 09 |.Gtime:G|ST=GTM..|
|000020b0| 60 1f 20 58 44 3d 44 59 | 3a 58 4d 3d 4d 4e 3a 58 |`. XD=DY|:XM=MN:X|
|000020c0| 53 3d 59 52 3a f2 53 74 | 72 69 6e 67 73 0d 09 6a |S=YR:.St|rings..j|
|000020d0| 1c 20 44 59 24 3d 58 44 | 24 3a 4d 4e 24 3d 58 4d |. DY$=XD|$:MN$=XM|
|000020e0| 24 3a 59 52 24 3d 58 53 | 24 0d 09 74 1e 20 58 3d |$:YR$=XS|$..t. X=|
|000020f0| a4 44 45 47 28 4c 41 4d | 28 50 51 29 2f 31 35 29 |.DEG(LAM|(PQ)/15)|
|00002100| 3a f2 48 72 61 6e 67 0d | 09 7e 22 20 58 3d a4 52 |:.Hrang.|.~" X=.R|
|00002110| 41 44 28 50 29 2a 31 35 | 3a 59 3d 42 45 54 28 50 |AD(P)*15|:Y=BET(P|
|00002120| 51 29 3a f2 45 71 68 6f | 72 0d 09 88 1a 20 58 52 |Q):.Eqho|r.... XR|
|00002130| 3d a4 44 45 47 28 50 29 | 3a 51 52 3d a4 44 45 47 |=.DEG(P)|:QR=.DEG|
|00002140| 28 51 29 0d 09 92 06 20 | 3a 0d 09 9c 18 20 e7 41 |(Q).... |:.... .A|
|00002150| 4c 54 73 75 6e 72 69 73 | 65 28 50 51 29 3e 30 20 |LTsunris|e(PQ)>0 |
|00002160| 8c 0d 09 a6 41 20 f1 8a | 31 32 29 3b 22 4d 61 78 |....A ..|12);"Max|
|00002170| 20 61 6c 74 69 74 75 64 | 65 20 61 74 20 73 75 6e | altitud|e at sun|
|00002180| 72 69 73 65 20 64 75 72 | 69 6e 67 20 74 68 65 20 |rise dur|ing the |
|00002190| 22 3b 50 51 3b 22 20 64 | 61 79 20 70 65 72 69 6f |";PQ;" d|ay perio|
|000021a0| 64 22 0d 09 b0 06 20 f1 | 0d 09 ba 06 20 3a 0d 09 |d".... .|.... :..|
|000021b0| c4 19 20 e3 4a 3d 50 51 | 20 b8 20 41 4c 54 74 61 |.. .J=PQ| . ALTta|
|000021c0| 62 6c 65 20 88 2d 31 0d | 09 ce 3d 20 46 4c 41 47 |ble .-1.|..= FLAG|
|000021d0| 28 32 29 3d 30 3a 44 4a | 44 3d 44 41 54 45 28 4a |(2)=0:DJ|D=DATE(J|
|000021e0| 29 3a f2 43 61 6c 64 61 | 79 3a 58 44 3d 44 59 3a |):.Calda|y:XD=DY:|
|000021f0| 58 4d 3d 4d 4e 3a 58 53 | 3d 59 52 3a f2 53 74 72 |XM=MN:XS|=YR:.Str|
|00002200| 69 6e 67 73 0d 09 d8 1c | 20 44 59 24 3d 58 44 24 |ings....| DY$=XD$|
|00002210| 3a 4d 4e 24 3d 58 4d 24 | 3a 59 52 24 3d 58 53 24 |:MN$=XM$|:YR$=XS$|
|00002220| 0d 09 e2 24 20 53 57 31 | 3d 31 3a 58 3d 48 53 52 |...$ SW1|=1:X=HSR|
|00002230| 28 4a 29 3a f2 4d 69 6e | 73 65 63 3a f2 53 74 72 |(J):.Min|sec:.Str|
|00002240| 69 6e 67 73 0d 09 ec 56 | 20 f1 8a 39 29 3b 22 50 |ings...V| ..9);"P|
|00002250| 6c 61 6e 65 74 20 61 6c | 74 69 74 75 64 65 20 61 |lanet al|titude a|
|00002260| 74 20 22 3b 58 44 24 3b | 22 3a 22 3b 58 4d 24 3b |t ";XD$;|":";XM$;|
|00002270| 22 3a 22 3b 58 53 24 3b | 22 20 6f 6e 20 22 3b 44 |":";XS$;|" on ";D|
|00002280| 59 24 3b 22 2f 22 3b 4d | 4e 24 3b 22 2f 22 3b 59 |Y$;"/";M|N$;"/";Y|
|00002290| 52 24 3b 22 20 69 73 20 | 22 3b 0d 09 f6 45 20 53 |R$;" is |";...E S|
|000022a0| 57 31 3d 31 3a 58 3d 41 | 4c 54 73 75 6e 72 69 73 |W1=1:X=A|LTsunris|
|000022b0| 65 28 4a 29 3a f2 4d 69 | 6e 73 65 63 3a f2 53 74 |e(J):.Mi|nsec:.St|
|000022c0| 72 69 6e 67 73 3a f1 89 | 28 32 29 3b 58 44 24 3b |rings:..|(2);XD$;|
|000022d0| 22 2c 22 3b 58 4d 24 3b | 22 2c 22 3b 58 53 24 0d |",";XM$;|",";XS$.|
|000022e0| 0a 00 25 20 f1 8a 33 31 | 29 3b 22 20 2e 2e 2e 61 |..% ..31|);" ...a|
|000022f0| 6e 64 20 74 68 65 20 61 | 7a 69 6d 75 74 68 20 69 |nd the a|zimuth i|
|00002300| 73 20 22 3b 0d 0a 0a 4f | 20 53 57 31 3d 31 3a 58 |s ";...O| SW1=1:X|
|00002310| 3d 41 5a 73 75 6e 72 69 | 73 65 28 4a 29 3a f2 4d |=AZsunri|se(J):.M|
|00002320| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 3a f1 |insec:.S|trings:.|
|00002330| 89 28 32 2d 28 a9 28 58 | 44 24 29 2d 32 29 29 3b |.(2-(.(X|D$)-2));|
|00002340| 58 44 24 3b 22 2c 22 3b | 58 4d 24 3b 22 2c 22 3b |XD$;",";|XM$;",";|
|00002350| 58 53 24 0d 0a 14 06 20 | f1 0d 0a 1e 08 20 ed 20 |XS$.... |..... . |
|00002360| 4a 0d 0a 28 3e 20 46 4c | 41 47 28 32 29 3d 30 3a |J..(> FL|AG(2)=0:|
|00002370| 44 4a 44 3d 44 41 54 45 | 28 50 51 29 3a f2 43 61 |DJD=DATE|(PQ):.Ca|
|00002380| 6c 64 61 79 3a 58 44 3d | 44 59 3a 58 4d 3d 4d 4e |lday:XD=|DY:XM=MN|
|00002390| 3a 58 53 3d 59 52 3a f2 | 53 74 72 69 6e 67 73 0d |:XS=YR:.|Strings.|
|000023a0| 0a 32 1c 20 44 59 24 3d | 58 44 24 3a 4d 4e 24 3d |.2. DY$=|XD$:MN$=|
|000023b0| 58 4d 24 3a 59 52 24 3d | 58 53 24 0d 0a 3c 4b 20 |XM$:YR$=|XS$..<K |
|000023c0| f1 27 8a 36 29 3b 22 41 | 6c 74 69 74 75 64 65 20 |.'.6);"A|ltitude |
|000023d0| 31 20 68 6f 75 72 20 62 | 65 66 6f 72 65 20 73 75 |1 hour b|efore su|
|000023e0| 6e 72 69 73 65 20 6f 6e | 20 22 3b 44 59 24 3b 22 |nrise on| ";DY$;"|
|000023f0| 2f 22 3b 4d 4e 24 3b 22 | 2f 22 3b 59 52 24 3b 22 |/";MN$;"|/";YR$;"|
|00002400| 20 69 73 20 22 3b 0d 0a | 46 28 20 53 57 31 3d 31 | is ";..|F( SW1=1|
|00002410| 3a 58 3d 51 52 3a 58 43 | 24 3d 22 2c 22 3a f2 4d |:X=QR:XC|$=",":.M|
|00002420| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 0d 0a |insec:.S|trings..|
|00002430| 50 3c 20 e7 20 53 24 3d | 22 2d 22 20 8c 20 58 44 |P< . S$=|"-" . XD|
|00002440| 24 3d 22 62 65 6c 6f 77 | 20 74 68 65 20 68 6f 72 |$="below| the hor|
|00002450| 69 7a 6f 6e 22 3a 58 4d | 24 3d 22 22 3a 58 53 24 |izon":XM|$="":XS$|
|00002460| 3d 22 22 3a 58 43 24 3d | 22 22 0d 0a 5a 1e 20 f1 |="":XC$=|""..Z. .|
|00002470| 89 28 32 29 3b 58 44 24 | 3b 58 43 24 3b 58 4d 24 |.(2);XD$|;XC$;XM$|
|00002480| 3b 58 43 24 3b 58 53 24 | 0d 0a 64 20 20 53 57 31 |;XC$;XS$|..d SW1|
|00002490| 3d 31 3a 58 3d 58 52 3a | f2 4d 69 6e 73 65 63 3a |=1:X=XR:|.Minsec:|
|000024a0| f2 53 74 72 69 6e 67 73 | 0d 0a 6e 25 20 f1 8a 33 |.Strings|..n% ..3|
|000024b0| 31 29 3b 22 20 2e 2e 2e | 61 6e 64 20 74 68 65 20 |1);" ...|and the |
|000024c0| 61 7a 69 6d 75 74 68 20 | 69 73 20 22 3b 0d 0a 78 |azimuth |is ";..x|
|000024d0| 29 20 f1 89 28 32 2d 28 | a9 28 58 44 24 29 2d 32 |) ..(2-(|.(XD$)-2|
|000024e0| 29 29 3b 58 44 24 3b 22 | 2c 22 3b 58 4d 24 3b 22 |));XD$;"|,";XM$;"|
|000024f0| 2c 22 3b 58 53 24 0d 0a | 82 06 20 cd 0d 0a 8c 06 |,";XS$..|.. .....|
|00002500| 20 f1 0d 0a 96 06 20 3a | 0d 0a a0 38 20 e3 4a 3d | ..... :|...8 .J=|
|00002510| 31 b8 50 51 3a 61 25 21 | 28 4a 2a 38 29 3d a8 28 |1.PQ:a%!|(J*8)=.(|
|00002520| 41 4c 54 73 75 6e 73 65 | 74 28 4a 29 2a 31 45 36 |ALTsunse|t(J)*1E6|
|00002530| 29 3a 61 25 21 28 4a 2a | 38 2d 34 29 3d 4a 3a ed |):a%!(J*|8-4)=J:.|
|00002540| 0d 0a aa 0a 20 41 25 3d | 61 25 0d 0a b4 09 20 42 |.... A%=|a%.... B|
|00002550| 25 3d 31 0d 0a be 0a 20 | 43 25 3d 50 51 0d 0a c8 |%=1.... |C%=PQ...|
|00002560| 47 20 d6 20 71 73 6f 72 | 74 3a f4 20 20 20 20 20 |G . qsor|t:. |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 6f 72 | | Sor|
|00002580| 74 69 6e 67 20 62 79 20 | 61 6c 74 69 74 75 64 65 |ting by |altitude|
|00002590| 20 6f 66 20 70 6c 61 6e | 65 74 20 61 74 20 73 75 | of plan|et at su|
|000025a0| 6e 73 65 74 0d 0a d2 06 | 20 3a 0d 0a dc 28 20 e3 |nset....| :...( .|
|000025b0| 4a 3d 31 b8 50 51 3a 41 | 4c 54 73 75 6e 73 65 74 |J=1.PQ:A|LTsunset|
|000025c0| 28 4a 29 3d 61 25 21 28 | 4a 2a 38 29 2f 31 45 36 |(J)=a%!(|J*8)/1E6|
|000025d0| 3a ed 0d 0a e6 3a 20 e3 | 4a 3d 31 b8 50 51 3a 53 |:....: .|J=1.PQ:S|
|000025e0| 50 28 4a 29 3d 44 41 54 | 45 41 28 61 25 21 28 4a |P(J)=DAT|EA(a%!(J|
|000025f0| 2a 38 2d 34 29 29 3a ed | 3a 44 41 54 45 41 28 29 |*8-4)):.|:DATEA()|
|00002600| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 0a f0 40 |=SP():SP|()=0...@|
|00002610| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 41 | .J=1.PQ|:SP(J)=A|
|00002620| 5a 73 75 6e 73 65 74 28 | 61 25 21 28 4a 2a 38 2d |Zsunset(|a%!(J*8-|
|00002630| 34 29 29 3a ed 3a 41 5a | 73 75 6e 73 65 74 28 29 |4)):.:AZ|sunset()|
|00002640| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 0a fa 36 |=SP():SP|()=0...6|
|00002650| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 48 | .J=1.PQ|:SP(J)=H|
|00002660| 53 53 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |SS(a%!(J|*8-4)):.|
|00002670| 3a 48 53 53 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |:HSS()=S|P():SP()|
|00002680| 3d 30 0d 0b 04 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...8 .|J=1.PQ:S|
|00002690| 50 28 4a 29 3d 4c 41 4d | 42 28 61 25 21 28 4a 2a |P(J)=LAM|B(a%!(J*|
|000026a0| 38 2d 34 29 29 3a ed 3a | 4c 41 4d 42 28 29 3d 53 |8-4)):.:|LAMB()=S|
|000026b0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 0b 0e 38 20 e3 |P():SP()|=0...8 .|
|000026c0| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 42 45 54 |J=1.PQ:S|P(J)=BET|
|000026d0| 42 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |B(a%!(J*|8-4)):.:|
|000026e0| 42 45 54 42 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |BETB()=S|P():SP()|
|000026f0| 3d 30 0d 0b 18 06 20 3a | 0d 0b 22 2b 20 e7 20 41 |=0.... :|.."+ . A|
|00002700| 4c 54 73 75 6e 73 65 74 | 28 50 51 29 3e 30 20 80 |LTsunset|(PQ)>0 .|
|00002710| 20 41 4c 54 73 75 6e 72 | 69 73 65 28 50 51 29 3e | ALTsunr|ise(PQ)>|
|00002720| 30 20 8c 0d 0b 2c 54 20 | f1 3a f1 22 2d 2d 2d 2d |0 ...,T |.:."----|
|00002730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002770| 2d 2d 2d 2d 2d 2d 22 0d | 0b 36 25 20 f1 22 50 72 |------".|.6% ."Pr|
|00002780| 65 73 73 20 6b 65 79 20 | 74 6f 20 73 65 65 20 53 |ess key |to see S|
|00002790| 75 6e 73 65 74 20 74 61 | 62 6c 65 22 0d 0b 40 0a |unset ta|ble"..@.|
|000027a0| 20 6b 65 79 3d a5 0d 0b | 4a 06 20 db 0d 0b 54 10 | key=...|J. ...T.|
|000027b0| 20 f2 45 6c 6f 6e 67 61 | 74 69 6f 6e 0d 0b 5e 06 | .Elonga|tion..^.|
|000027c0| 20 cd 0d 0b 68 06 20 3a | 0d 0b 72 17 20 46 4c 41 | ...h. :|..r. FLA|
|000027d0| 47 28 29 3d 30 3a 46 4c | 41 47 28 30 29 3d 31 0d |G()=0:FL|AG(0)=1.|
|000027e0| 0b 7c 06 20 3a 0d 0b 86 | 26 20 44 4a 44 3d 44 41 |.|. :...|& DJD=DA|
|000027f0| 54 45 41 28 50 51 29 3a | 54 49 4d 3d 48 53 53 28 |TEA(PQ):|TIM=HSS(|
|00002800| 50 51 29 2b 31 3a 53 57 | 32 3d 31 0d 0b 90 1b 20 |PQ)+1:SW|2=1.... |
|00002810| f2 43 61 6c 64 61 79 3a | f2 47 74 69 6d 65 3a 47 |.Calday:|.Gtime:G|
|00002820| 53 54 3d 47 54 4d 0d 0b | 9a 1f 20 58 44 3d 44 59 |ST=GTM..|.. XD=DY|
|00002830| 3a 58 4d 3d 4d 4e 3a 58 | 53 3d 59 52 3a f2 53 74 |:XM=MN:X|S=YR:.St|
|00002840| 72 69 6e 67 73 0d 0b a4 | 1c 20 44 59 24 3d 58 44 |rings...|. DY$=XD|
|00002850| 24 3a 4d 4e 24 3d 58 4d | 24 3a 59 52 24 3d 58 53 |$:MN$=XM|$:YR$=XS|
|00002860| 24 0d 0b ae 1f 20 58 3d | a4 44 45 47 28 4c 41 4d |$.... X=|.DEG(LAM|
|00002870| 42 28 50 51 29 2f 31 35 | 29 3a f2 48 72 61 6e 67 |B(PQ)/15|):.Hrang|
|00002880| 0d 0b b8 23 20 58 3d a4 | 52 41 44 28 50 29 2a 31 |...# X=.|RAD(P)*1|
|00002890| 35 3a 59 3d 42 45 54 42 | 28 50 51 29 3a f2 45 71 |5:Y=BETB|(PQ):.Eq|
|000028a0| 68 6f 72 0d 0b c2 1c 20 | 58 52 53 3d a4 44 45 47 |hor.... |XRS=.DEG|
|000028b0| 28 50 29 3a 51 52 53 3d | a4 44 45 47 28 51 29 0d |(P):QRS=|.DEG(Q).|
|000028c0| 0b cc 06 20 3a 0d 0b d6 | 17 20 e7 41 4c 54 73 75 |... :...|. .ALTsu|
|000028d0| 6e 73 65 74 28 50 51 29 | 3e 30 20 8c 0d 0b e0 40 |nset(PQ)|>0 ....@|
|000028e0| 20 f1 8a 31 32 29 3b 22 | 4d 61 78 20 61 6c 74 69 | ..12);"|Max alti|
|000028f0| 74 75 64 65 20 61 74 20 | 73 75 6e 73 65 74 20 64 |tude at |sunset d|
|00002900| 75 72 69 6e 67 20 74 68 | 65 20 22 3b 50 51 3b 22 |uring th|e ";PQ;"|
|00002910| 20 64 61 79 20 70 65 72 | 69 6f 64 22 0d 0b ea 06 | day per|iod"....|
|00002920| 20 f1 0d 0b f4 06 20 3a | 0d 0b fe 19 20 e3 4a 3d | ..... :|.... .J=|
|00002930| 50 51 20 b8 20 41 4c 54 | 74 61 62 6c 65 20 88 2d |PQ . ALT|table .-|
|00002940| 31 0d 0c 08 3e 20 46 4c | 41 47 28 32 29 3d 30 3a |1...> FL|AG(2)=0:|
|00002950| 44 4a 44 3d 44 41 54 45 | 41 28 4a 29 3a f2 43 61 |DJD=DATE|A(J):.Ca|
|00002960| 6c 64 61 79 3a 58 44 3d | 44 59 3a 58 4d 3d 4d 4e |lday:XD=|DY:XM=MN|
|00002970| 3a 58 53 3d 59 52 3a f2 | 53 74 72 69 6e 67 73 0d |:XS=YR:.|Strings.|
|00002980| 0c 12 1c 20 44 59 24 3d | 58 44 24 3a 4d 4e 24 3d |... DY$=|XD$:MN$=|
|00002990| 58 4d 24 3a 59 52 24 3d | 58 53 24 0d 0c 1c 24 20 |XM$:YR$=|XS$...$ |
|000029a0| 53 57 31 3d 31 3a 58 3d | 48 53 53 28 4a 29 3a f2 |SW1=1:X=|HSS(J):.|
|000029b0| 4d 69 6e 73 65 63 3a f2 | 53 74 72 69 6e 67 73 0d |Minsec:.|Strings.|
|000029c0| 0c 26 56 20 f1 8a 39 29 | 3b 22 50 6c 61 6e 65 74 |.&V ..9)|;"Planet|
|000029d0| 20 61 6c 74 69 74 75 64 | 65 20 61 74 20 22 3b 58 | altitud|e at ";X|
|000029e0| 44 24 3b 22 3a 22 3b 58 | 4d 24 3b 22 3a 22 3b 58 |D$;":";X|M$;":";X|
|000029f0| 53 24 3b 22 20 6f 6e 20 | 22 3b 44 59 24 3b 22 2f |S$;" on |";DY$;"/|
|00002a00| 22 3b 4d 4e 24 3b 22 2f | 22 3b 59 52 24 3b 22 20 |";MN$;"/|";YR$;" |
|00002a10| 69 73 20 22 3b 0d 0c 30 | 44 20 53 57 31 3d 31 3a |is ";..0|D SW1=1:|
|00002a20| 58 3d 41 4c 54 73 75 6e | 73 65 74 28 4a 29 3a f2 |X=ALTsun|set(J):.|
|00002a30| 4d 69 6e 73 65 63 3a f2 | 53 74 72 69 6e 67 73 3a |Minsec:.|Strings:|
|00002a40| f1 89 28 32 29 3b 58 44 | 24 3b 22 2c 22 3b 58 4d |..(2);XD|$;",";XM|
|00002a50| 24 3b 22 2c 22 3b 58 53 | 24 0d 0c 3a 25 20 f1 8a |$;",";XS|$..:% ..|
|00002a60| 33 31 29 3b 22 20 2e 2e | 2e 61 6e 64 20 74 68 65 |31);" ..|.and the|
|00002a70| 20 61 7a 69 6d 75 74 68 | 20 69 73 20 22 3b 0d 0c | azimuth| is ";..|
|00002a80| 44 4e 20 53 57 31 3d 31 | 3a 58 3d 41 5a 73 75 6e |DN SW1=1|:X=AZsun|
|00002a90| 73 65 74 28 4a 29 3a f2 | 4d 69 6e 73 65 63 3a f2 |set(J):.|Minsec:.|
|00002aa0| 53 74 72 69 6e 67 73 3a | f1 89 28 32 2d 28 a9 28 |Strings:|..(2-(.(|
|00002ab0| 58 44 24 29 2d 32 29 29 | 3b 58 44 24 3b 22 2c 22 |XD$)-2))|;XD$;","|
|00002ac0| 3b 58 4d 24 3b 22 2c 22 | 3b 58 53 24 0d 0c 4e 06 |;XM$;","|;XS$..N.|
|00002ad0| 20 f1 0d 0c 58 08 20 ed | 20 4a 0d 0c 62 06 20 3a | ...X. .| J..b. :|
|00002ae0| 0d 0c 6c 3f 20 46 4c 41 | 47 28 32 29 3d 30 3a 44 |..l? FLA|G(2)=0:D|
|00002af0| 4a 44 3d 44 41 54 45 41 | 28 50 51 29 3a f2 43 61 |JD=DATEA|(PQ):.Ca|
|00002b00| 6c 64 61 79 3a 58 44 3d | 44 59 3a 58 4d 3d 4d 4e |lday:XD=|DY:XM=MN|
|00002b10| 3a 58 53 3d 59 52 3a f2 | 53 74 72 69 6e 67 73 0d |:XS=YR:.|Strings.|
|00002b20| 0c 76 1c 20 44 59 24 3d | 58 44 24 3a 4d 4e 24 3d |.v. DY$=|XD$:MN$=|
|00002b30| 58 4d 24 3a 59 52 24 3d | 58 53 24 0d 0c 80 49 20 |XM$:YR$=|XS$...I |
|00002b40| f1 27 8a 38 29 3b 22 41 | 6c 74 69 74 75 64 65 20 |.'.8);"A|ltitude |
|00002b50| 31 20 68 6f 75 72 20 61 | 66 74 65 72 20 73 75 6e |1 hour a|fter sun|
|00002b60| 73 65 74 20 6f 6e 20 22 | 3b 44 59 24 3b 22 2f 22 |set on "|;DY$;"/"|
|00002b70| 3b 4d 4e 24 3b 22 2f 22 | 3b 59 52 24 3b 22 20 69 |;MN$;"/"|;YR$;" i|
|00002b80| 73 20 22 3b 0d 0c 8a 29 | 20 53 57 31 3d 31 3a 58 |s ";...)| SW1=1:X|
|00002b90| 3d 51 52 53 3a 58 43 24 | 3d 22 2c 22 3a f2 4d 69 |=QRS:XC$|=",":.Mi|
|00002ba0| 6e 73 65 63 3a f2 53 74 | 72 69 6e 67 73 0d 0c 94 |nsec:.St|rings...|
|00002bb0| 06 20 3a 0d 0c 9e 3a 20 | e7 53 24 3d 22 2d 22 8c |. :...: |.S$="-".|
|00002bc0| 20 58 44 24 3d 22 62 65 | 6c 6f 77 20 74 68 65 20 | XD$="be|low the |
|00002bd0| 68 6f 72 69 7a 6f 6e 22 | 3a 58 4d 24 3d 22 22 3a |horizon"|:XM$="":|
|00002be0| 58 53 24 3d 22 22 3a 58 | 43 24 3d 22 22 0d 0c a8 |XS$="":X|C$=""...|
|00002bf0| 1e 20 f1 89 28 32 29 3b | 58 44 24 3b 58 43 24 3b |. ..(2);|XD$;XC$;|
|00002c00| 58 4d 24 3b 58 43 24 3b | 58 53 24 0d 0c b2 21 20 |XM$;XC$;|XS$...! |
|00002c10| 53 57 31 3d 31 3a 58 3d | 58 52 53 3a f2 4d 69 6e |SW1=1:X=|XRS:.Min|
|00002c20| 73 65 63 3a f2 53 74 72 | 69 6e 67 73 0d 0c bc 25 |sec:.Str|ings...%|
|00002c30| 20 f1 8a 33 31 29 3b 22 | 20 2e 2e 2e 61 6e 64 20 | ..31);"| ...and |
|00002c40| 74 68 65 20 61 7a 69 6d | 75 74 68 20 69 73 20 22 |the azim|uth is "|
|00002c50| 3b 0d 0c c6 29 20 f1 89 | 28 32 2d 28 a9 28 58 44 |;...) ..|(2-(.(XD|
|00002c60| 24 29 2d 32 29 29 3b 58 | 44 24 3b 22 2c 22 3b 58 |$)-2));X|D$;",";X|
|00002c70| 4d 24 3b 22 2c 22 3b 58 | 53 24 0d 0c d0 06 20 cd |M$;",";X|S$.... .|
|00002c80| 0d 0c da 06 20 f1 0d 0c | e4 06 20 3a 0d 0c ee 07 |.... ...|.. :....|
|00002c90| 20 ef 33 0d 0c f8 06 20 | 3a 0d 0d 02 27 20 e8 22 | .3.... |:...' ."|
|00002ca0| 47 72 61 70 68 20 4c 6f | 6e 67 69 74 75 64 65 73 |Graph Lo|ngitudes|
|00002cb0| 20 26 20 44 69 73 74 61 | 6e 63 65 22 3b 41 4e 24 | & Dista|nce";AN$|
|00002cc0| 0d 0d 0c 12 20 e7 41 4e | 24 3d 22 4e 22 8c 8d 64 |.... .AN|$="N"..d|
|00002cd0| 40 4d 0d 0d 16 0b 20 f2 | 73 63 61 6c 65 0d 0d 20 |@M.... .|scale.. |
|00002ce0| 0c 20 f2 64 65 73 6f 72 | 74 0d 0d 2a 10 20 f2 63 |. .desor|t..*. .c|
|00002cf0| 68 61 72 74 73 65 74 75 | 70 0d 0d 34 0c 20 f2 63 |hartsetu|p..4. .c|
|00002d00| 75 72 76 65 73 0d 0d 3e | 14 20 f1 8a 33 36 2c 33 |urves..>|. ..36,3|
|00002d10| 31 29 3b 22 64 61 79 73 | 22 0d 0d 48 21 20 e8 8a |1);"days|"..H! ..|
|00002d20| 35 30 2c 34 29 3b 22 43 | 61 6c 63 75 6c 61 74 65 |50,4);"C|alculate|
|00002d30| 20 64 61 74 65 22 3b 41 | 4e 24 0d 0d 52 21 20 f1 | date";A|N$..R! .|
|00002d40| 8a 35 30 2c 34 29 3b 22 | 20 20 20 20 20 20 20 20 |.50,4);"| |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 22 0d 0d 5c 12 20 | | "..\. |
|00002d60| e7 41 4e 24 3d 22 4e 22 | 8c 8d 74 62 4d 0d 0d 66 |.AN$="N"|..tbM..f|
|00002d70| 27 20 e8 8a 35 30 2c 34 | 29 3b 22 44 61 79 20 6e |' ..50,4|);"Day n|
|00002d80| 75 6d 62 65 72 20 66 72 | 6f 6d 20 73 63 61 6c 65 |umber fr|om scale|
|00002d90| 22 3b 44 32 0d 0d 70 28 | 20 f1 8a 35 30 2c 34 29 |";D2..p(| ..50,4)|
|00002da0| 3b 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;" | |
|00002db0| 20 20 20 20 20 20 20 20 | 20 20 20 22 0d 0d 7a 3b | | "..z;|
|00002dc0| 20 44 4a 44 3d 44 4a 44 | 31 2b 44 32 3a 46 4c 41 | DJD=DJD|1+D2:FLA|
|00002dd0| 47 28 32 29 3d 30 3a f2 | 43 61 6c 64 61 79 3a f1 |G(2)=0:.|Calday:.|
|00002de0| 8a 33 35 2c 34 29 3b 44 | 59 3b 22 2f 22 3b 4d 4e |.35,4);D|Y;"/";MN|
|00002df0| 3b 22 2f 22 3b 59 52 0d | 0d 84 2a 20 e8 8a 35 30 |;"/";YR.|..* ..50|
|00002e00| 2c 34 29 3b 22 41 6e 6f | 74 68 65 72 20 64 61 74 |,4);"Ano|ther dat|
|00002e10| 65 20 20 20 20 20 20 20 | 20 20 20 20 22 3b 41 4e |e | ";AN|
|00002e20| 24 0d 0d 8e 38 20 f1 8a | 33 35 2c 34 29 3b 22 20 |$...8 ..|35,4);" |
|00002e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e50| 20 20 20 20 20 20 20 20 | 22 0d 0d 98 12 20 e7 41 | |".... .A|
|00002e60| 4e 24 3d 22 59 22 8c 8d | 44 66 4d 0d 0d a2 22 20 |N$="Y"..|DfM..." |
|00002e70| e8 8a 35 30 2c 34 29 3b | 22 52 65 76 69 65 77 20 |..50,4);|"Review |
|00002e80| 74 61 62 6c 65 28 73 29 | 22 3b 41 4e 24 0d 0d ac |table(s)|";AN$...|
|00002e90| 15 20 e7 20 41 4e 24 3d | 22 59 22 20 8c 20 8d 64 |. . AN$=|"Y" . .d|
|00002ea0| 6a 46 0d 0d b6 09 20 db | 3a eb 30 0d 0d c0 1c 20 |jF.... .|:.0.... |
|00002eb0| c8 99 22 4f 53 5f 55 70 | 64 61 74 65 4d 45 4d 43 |.."OS_Up|dateMEMC|
|00002ec0| 22 2c 2c 36 34 3a e0 0d | 0d ca 06 20 3a 0d 0d d4 |",,64:..|... :...|
|00002ed0| 11 20 dd f2 45 6c 6f 6e | 67 61 74 69 6f 6e 0d 0d |. ..Elon|gation..|
|00002ee0| de 06 20 db 0d 0d e8 14 | 20 e7 20 54 61 62 6c 65 |.. .....| . Table|
|00002ef0| 24 3d 22 59 22 20 ef 32 | 0d 0d f2 30 20 f1 27 8a |$="Y" .2|...0 .'.|
|00002f00| 31 30 29 3b 50 24 3b 22 | 20 66 72 6f 6d 20 22 3b |10);P$;"| from ";|
|00002f10| 4e 41 4d 45 24 3b 22 20 | 28 47 4d 54 22 3b 4b 24 |NAME$;" |(GMT";K$|
|00002f20| 3b 4c 37 3b 22 29 22 3b | 0d 0d fc 1f 20 44 4a 44 |;L7;")";|.... DJD|
|00002f30| 3d 44 4a 44 31 3a 46 4c | 41 47 28 32 29 3d 30 3a |=DJD1:FL|AG(2)=0:|
|00002f40| f2 43 61 6c 64 61 79 0d | 0e 06 37 20 58 44 3d 44 |.Calday.|..7 XD=D|
|00002f50| 59 3a 58 4d 3d 4d 4e 3a | 58 53 3d 59 52 3a f2 53 |Y:XM=MN:|XS=YR:.S|
|00002f60| 74 72 69 6e 67 73 3a 44 | 59 24 3d 58 44 24 3a 4d |trings:D|Y$=XD$:M|
|00002f70| 4e 24 3d 58 4d 24 3a 59 | 52 24 3d 58 53 24 0d 0e |N$=XM$:Y|R$=XS$..|
|00002f80| 10 3d 20 f1 89 28 31 29 | 3b 44 59 24 3b 22 2f 22 |.= ..(1)|;DY$;"/"|
|00002f90| 3b 4d 4e 24 3b 22 2f 22 | 3b 59 52 24 3b 22 20 74 |;MN$;"/"|;YR$;" t|
|00002fa0| 6f 22 3b 3a 44 31 24 3d | 44 59 24 3a 4d 31 24 3d |o";:D1$=|DY$:M1$=|
|00002fb0| 4d 4e 24 3a 59 31 24 3d | 59 52 24 0d 0e 1a 1f 20 |MN$:Y1$=|YR$.... |
|00002fc0| 44 4a 44 3d 44 4a 44 32 | 3a 46 4c 41 47 28 32 29 |DJD=DJD2|:FLAG(2)|
|00002fd0| 3d 30 3a f2 43 61 6c 64 | 61 79 0d 0e 24 37 20 58 |=0:.Cald|ay..$7 X|
|00002fe0| 44 3d 44 59 3a 58 4d 3d | 4d 4e 3a 58 53 3d 59 52 |D=DY:XM=|MN:XS=YR|
|00002ff0| 3a f2 53 74 72 69 6e 67 | 73 3a 44 59 24 3d 58 44 |:.String|s:DY$=XD|
|00003000| 24 3a 4d 4e 24 3d 58 4d | 24 3a 59 52 24 3d 58 53 |$:MN$=XM|$:YR$=XS|
|00003010| 24 0d 0e 2e 36 20 f1 89 | 28 31 29 3b 44 59 24 3b |$...6 ..|(1);DY$;|
|00003020| 22 2f 22 3b 4d 4e 24 3b | 22 2f 22 3b 59 52 24 3a |"/";MN$;|"/";YR$:|
|00003030| 44 32 24 3d 44 59 24 3a | 4d 32 24 3d 4d 4e 24 3a |D2$=DY$:|M2$=MN$:|
|00003040| 59 32 24 3d 59 52 24 0d | 0e 38 30 20 f1 27 8a 35 |Y2$=YR$.|.80 .'.5|
|00003050| 29 3b 22 4d 69 6e 20 64 | 69 73 74 61 6e 63 65 20 |);"Min d|istance |
|00003060| 64 75 72 69 6e 67 20 74 | 68 65 20 70 65 72 69 6f |during t|he perio|
|00003070| 64 20 69 73 20 22 3b 0d | 0e 42 06 20 3a 0d 0e 4c |d is ";.|.B. :..L|
|00003080| 41 20 f1 8a 34 30 29 3b | a8 28 52 48 4f 30 6d 69 |A ..40);|.(RHO0mi|
|00003090| 6e 2a 31 45 34 29 2f 31 | 45 32 3b 22 20 41 55 20 |n*1E4)/1|E2;" AU |
|000030a0| 6f 6e 20 22 3b 44 59 45 | 4c 24 3b 22 2f 22 3b 4d |on ";DYE|L$;"/";M|
|000030b0| 4e 45 4c 24 3b 22 2f 22 | 3b 59 52 45 4c 24 0d 0e |NEL$;"/"|;YREL$..|
|000030c0| 56 06 20 f1 0d 0e 60 16 | 20 e7 20 53 48 53 52 24 |V. ...`.| . SHSR$|
|000030d0| 3d 22 2b 22 20 f2 52 69 | 73 65 0d 0e 6a 15 20 e7 |="+" .Ri|se..j. .|
|000030e0| 20 53 48 53 53 24 3d 22 | 2b 22 20 f2 53 65 74 0d | SHSS$="|+" .Set.|
|000030f0| 0e 74 06 20 f1 0d 0e 7e | 06 20 e1 0d 0e 88 06 20 |.t. ...~|. ..... |
|00003100| 3a 0d 0e 92 0d 20 dd f2 | 64 65 73 6f 72 74 0d 0e |:.... ..|desort..|
|00003110| 9c 32 20 e3 4a 3d 31 b8 | 50 51 3a 61 25 21 28 4a |.2 .J=1.|PQ:a%!(J|
|00003120| 2a 38 29 3d a8 28 44 41 | 54 45 28 4a 29 2a 31 30 |*8)=.(DA|TE(J)*10|
|00003130| 29 3a 61 25 21 28 4a 2a | 38 2d 34 29 3d 4a 3a ed |):a%!(J*|8-4)=J:.|
|00003140| 0d 0e a6 0a 20 41 25 3d | 61 25 0d 0e b0 09 20 42 |.... A%=|a%.... B|
|00003150| 25 3d 31 0d 0e ba 0a 20 | 43 25 3d 50 51 0d 0e c4 |%=1.... |C%=PQ...|
|00003160| 48 20 d6 20 71 73 6f 72 | 74 3a f4 20 20 20 20 20 |H . qsor|t:. |
|00003170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 6f 72 | | Sor|
|00003180| 74 69 6e 67 20 62 61 63 | 6b 20 74 6f 20 6f 72 69 |ting bac|k to ori|
|00003190| 67 69 6e 61 6c 20 61 72 | 72 61 79 20 66 6f 72 20 |ginal ar|ray for |
|000031a0| 67 72 61 70 68 0d 0e ce | 06 20 3a 0d 0e d8 22 20 |graph...|. :..." |
|000031b0| e3 4a 3d 31 b8 50 51 3a | 44 41 54 45 28 4a 29 3d |.J=1.PQ:|DATE(J)=|
|000031c0| 61 25 21 28 4a 2a 38 29 | 2f 31 30 3a ed 0d 0e e2 |a%!(J*8)|/10:....|
|000031d0| 44 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |D .J=1.P|Q:SP(J)=|
|000031e0| 41 4c 54 73 75 6e 72 69 | 73 65 28 61 25 21 28 4a |ALTsunri|se(a%!(J|
|000031f0| 2a 38 2d 34 29 29 3a ed | 3a 41 4c 54 73 75 6e 72 |*8-4)):.|:ALTsunr|
|00003200| 69 73 65 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |ise()=SP|():SP()=|
|00003210| 30 0d 0e ec 42 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0...B .J|=1.PQ:SP|
|00003220| 28 4a 29 3d 41 5a 73 75 | 6e 72 69 73 65 28 61 25 |(J)=AZsu|nrise(a%|
|00003230| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 41 5a 73 75 |!(J*8-4)|):.:AZsu|
|00003240| 6e 72 69 73 65 28 29 3d | 53 50 28 29 3a 53 50 28 |nrise()=|SP():SP(|
|00003250| 29 3d 30 0d 0e f6 38 20 | e3 4a 3d 31 b8 50 51 3a |)=0...8 |.J=1.PQ:|
|00003260| 53 50 28 4a 29 3d 52 48 | 4f 30 28 61 25 21 28 4a |SP(J)=RH|O0(a%!(J|
|00003270| 2a 38 2d 34 29 29 3a ed | 3a 52 48 4f 30 28 29 3d |*8-4)):.|:RHO0()=|
|00003280| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 0f 00 46 20 |SP():SP(|)=0...F |
|00003290| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 41 4c |.J=1.PQ:|SP(J)=AL|
|000032a0| 54 6d 69 64 6e 69 67 68 | 74 28 61 25 21 28 4a 2a |Tmidnigh|t(a%!(J*|
|000032b0| 38 2d 34 29 29 3a ed 3a | 41 4c 54 6d 69 64 6e 69 |8-4)):.:|ALTmidni|
|000032c0| 67 68 74 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |ght()=SP|():SP()=|
|000032d0| 30 0d 0f 0a 36 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0...6 .J|=1.PQ:SP|
|000032e0| 28 4a 29 3d 4c 41 4d 28 | 61 25 21 28 4a 2a 38 2d |(J)=LAM(|a%!(J*8-|
|000032f0| 34 29 29 3a ed 3a 4c 41 | 4d 28 29 3d 53 50 28 29 |4)):.:LA|M()=SP()|
|00003300| 3a 53 50 28 29 3d 30 0d | 0f 14 36 20 e3 4a 3d 31 |:SP()=0.|..6 .J=1|
|00003310| b8 50 51 3a 53 50 28 4a | 29 3d 42 45 54 28 61 25 |.PQ:SP(J|)=BET(a%|
|00003320| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 42 45 54 28 |!(J*8-4)|):.:BET(|
|00003330| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 0f 1e |)=SP():S|P()=0...|
|00003340| 05 3a 0d 0f 28 05 3a 0d | 0f 32 36 20 e3 4a 3d 31 |.:..(.:.|.26 .J=1|
|00003350| b8 50 51 3a 53 50 28 4a | 29 3d 48 53 52 28 61 25 |.PQ:SP(J|)=HSR(a%|
|00003360| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 48 53 52 28 |!(J*8-4)|):.:HSR(|
|00003370| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 0f 3c |)=SP():S|P()=0..<|
|00003380| 06 20 3a 0d 0f 46 33 20 | e3 4a 3d 31 b8 50 51 3a |. :..F3 |.J=1.PQ:|
|00003390| 61 25 21 28 4a 2a 38 29 | 3d a8 28 44 41 54 45 41 |a%!(J*8)|=.(DATEA|
|000033a0| 28 4a 29 2a 31 30 29 3a | 61 25 21 28 4a 2a 38 2d |(J)*10):|a%!(J*8-|
|000033b0| 34 29 3d 4a 3a ed 0d 0f | 50 0a 20 41 25 3d 61 25 |4)=J:...|P. A%=a%|
|000033c0| 0d 0f 5a 09 20 42 25 3d | 31 0d 0f 64 0a 20 43 25 |..Z. B%=|1..d. C%|
|000033d0| 3d 50 51 0d 0f 6e 48 20 | d6 20 71 73 6f 72 74 3a |=PQ..nH |. qsort:|
|000033e0| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000033f0| 20 20 20 53 6f 72 74 69 | 6e 67 20 62 61 63 6b 20 | Sorti|ng back |
|00003400| 74 6f 20 6f 72 69 67 69 | 6e 61 6c 20 61 72 72 61 |to origi|nal arra|
|00003410| 79 20 66 6f 72 20 67 72 | 61 70 68 0d 0f 78 06 20 |y for gr|aph..x. |
|00003420| 3a 0d 0f 82 23 20 e3 4a | 3d 31 b8 50 51 3a 44 41 |:...# .J|=1.PQ:DA|
|00003430| 54 45 41 28 4a 29 3d 61 | 25 21 28 4a 2a 38 29 2f |TEA(J)=a|%!(J*8)/|
|00003440| 31 30 3a ed 0d 0f 8c 42 | 20 e3 4a 3d 31 b8 50 51 |10:....B| .J=1.PQ|
|00003450| 3a 53 50 28 4a 29 3d 41 | 4c 54 73 75 6e 73 65 74 |:SP(J)=A|LTsunset|
|00003460| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|00003470| 4c 54 73 75 6e 73 65 74 | 28 29 3d 53 50 28 29 3a |LTsunset|()=SP():|
|00003480| 53 50 28 29 3d 30 0d 0f | 96 40 20 e3 4a 3d 31 b8 |SP()=0..|.@ .J=1.|
|00003490| 50 51 3a 53 50 28 4a 29 | 3d 41 5a 73 75 6e 73 65 |PQ:SP(J)|=AZsunse|
|000034a0| 74 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |t(a%!(J*|8-4)):.:|
|000034b0| 41 5a 73 75 6e 73 65 74 | 28 29 3d 53 50 28 29 3a |AZsunset|()=SP():|
|000034c0| 53 50 28 29 3d 30 0d 0f | a0 38 20 e3 4a 3d 31 b8 |SP()=0..|.8 .J=1.|
|000034d0| 50 51 3a 53 50 28 4a 29 | 3d 4c 41 4d 42 28 61 25 |PQ:SP(J)|=LAMB(a%|
|000034e0| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 4c 41 4d 42 |!(J*8-4)|):.:LAMB|
|000034f0| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 0f |()=SP():|SP()=0..|
|00003500| aa 38 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.8 .J=1.|PQ:SP(J)|
|00003510| 3d 42 45 54 42 28 61 25 | 21 28 4a 2a 38 2d 34 29 |=BETB(a%|!(J*8-4)|
|00003520| 29 3a ed 3a 42 45 54 42 | 28 29 3d 53 50 28 29 3a |):.:BETB|()=SP():|
|00003530| 53 50 28 29 3d 30 0d 0f | b4 36 20 e3 4a 3d 31 b8 |SP()=0..|.6 .J=1.|
|00003540| 50 51 3a 53 50 28 4a 29 | 3d 48 53 53 28 61 25 21 |PQ:SP(J)|=HSS(a%!|
|00003550| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 48 53 53 28 29 |(J*8-4))|:.:HSS()|
|00003560| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 0f be 06 |=SP():SP|()=0....|
|00003570| 20 e1 0d 0f c8 06 20 3a | 0d 0f d2 11 20 dd f2 63 | ..... :|.... ..c|
|00003580| 68 61 72 74 73 65 74 75 | 70 0d 0f dc 06 20 db 0d |hartsetu|p.... ..|
|00003590| 0f e6 27 20 eb 20 31 32 | 3a e6 20 37 3a 63 6f 6c |..' . 12|:. 7:col|
|000035a0| 3d 37 36 3a e7 a9 28 c3 | 28 50 51 29 29 3e 33 8c |=76:..(.|(PQ))>3.|
|000035b0| 63 6f 6c 3d 37 34 0d 0f | f0 6a 20 f1 27 8a 32 29 |col=74..|.j .'.2)|
|000035c0| 3b 50 24 3b 22 20 66 72 | 6f 6d 20 22 3b 4e 41 4d |;P$;" fr|om ";NAM|
|000035d0| 45 24 3b 22 3a 4c 6f 6e | 67 69 74 75 64 65 73 20 |E$;":Lon|gitudes |
|000035e0| 26 20 64 69 73 74 61 6e | 63 65 20 66 72 6f 6d 20 |& distan|ce from |
|000035f0| 22 3b 44 31 24 3b 22 2f | 22 3b 4d 31 24 3b 22 2f |";D1$;"/|";M1$;"/|
|00003600| 22 3b 59 31 24 3b 22 20 | 74 6f 20 22 3b 44 32 24 |";Y1$;" |to ";D2$|
|00003610| 3b 22 2f 22 3b 4d 32 24 | 3b 22 2f 22 3b 59 32 24 |;"/";M2$|;"/";Y2$|
|00003620| 0d 0f fa 20 20 f1 8a 35 | 29 3b 22 65 71 75 61 74 |... ..5|);"equat|
|00003630| 6f 72 69 61 6c 20 6c 6f | 6e 67 69 74 75 64 65 22 |orial lo|ngitude"|
|00003640| 0d 10 04 20 20 f1 8a 35 | 29 3b 22 67 65 6f 63 65 |... ..5|);"geoce|
|00003650| 6e 74 72 69 63 20 6c 6f | 6e 67 69 74 75 64 65 22 |ntric lo|ngitude"|
|00003660| 0d 10 0e 22 20 f1 8a 35 | 29 3b 22 68 65 6c 69 6f |..." ..5|);"helio|
|00003670| 63 65 6e 74 72 69 63 20 | 6c 6f 6e 67 69 74 75 64 |centric |longitud|
|00003680| 65 22 0d 10 18 28 20 f1 | 8a 35 29 3b 22 64 69 73 |e"...( .|.5);"dis|
|00003690| 74 61 6e 63 65 20 66 72 | 6f 6d 20 45 61 72 74 68 |tance fr|om Earth|
|000036a0| 20 28 41 55 2a 31 30 30 | 29 22 0d 10 22 2a 20 f1 | (AU*100|)".."* .|
|000036b0| 8a 34 2c a4 53 43 4c 28 | 50 6c 75 73 6d 72 6b 29 |.4,.SCL(|Plusmrk)|
|000036c0| 29 3b 22 2b 22 3b 59 6d | 61 78 61 76 3b 22 20 64 |);"+";Ym|axav;" d|
|000036d0| 65 67 2e 22 0d 10 2c 36 | 20 e7 20 4d 69 6e 75 73 |eg."..,6| . Minus|
|000036e0| 6d 72 6b 3c 3e 32 35 20 | f1 8a 35 2c a4 53 43 4c |mrk<>25 |..5,.SCL|
|000036f0| 28 4d 69 6e 75 73 6d 72 | 6b 29 29 3b 59 6d 69 6e |(Minusmr|k));Ymin|
|00003700| 61 76 3b 22 20 64 65 67 | 2e 22 0d 10 36 16 20 e3 |av;" deg|."..6. .|
|00003710| 4e 3d 30 b8 50 51 20 88 | 20 a8 28 50 51 2f 34 29 |N=0.PQ .| .(PQ/4)|
|00003720| 0d 10 40 3a 20 43 44 4e | 3d a8 28 a4 43 44 4e 28 |..@: CDN|=.(.CDN(|
|00003730| 4e 2c 58 6d 69 6e 2c 58 | 6d 61 78 2c 31 32 32 35 |N,Xmin,X|max,1225|
|00003740| 29 2a 63 6f 6c 2f 31 32 | 32 35 29 3a e7 43 44 4e |)*col/12|25):.CDN|
|00003750| 3c 30 20 8c 20 43 44 4e | 3d 30 0d 10 4a 10 20 f1 |<0 . CDN|=0..J. .|
|00003760| 8a 43 44 4e 2c 33 30 29 | 3b 4e 0d 10 54 06 20 ed |.CDN,30)|;N..T. .|
|00003770| 0d 10 5e 06 20 e1 0d 10 | 68 06 20 3a 0d 10 72 0c |..^. ...|h. :..r.|
|00003780| 20 dd f2 73 63 61 6c 65 | 0d 10 7c 1a 20 e3 4a 3d | ..scale|..|. .J=|
|00003790| 31 b8 38 3a 61 25 21 28 | 4a 2a 38 2d 34 29 3d 4a |1.8:a%!(|J*8-4)=J|
|000037a0| 3a ed 0d 10 86 28 20 61 | 25 21 28 38 29 3d a8 28 |:....( a|%!(8)=.(|
|000037b0| 94 28 52 48 4f 30 6d 61 | 78 29 2b 30 2e 35 29 2a |.(RHO0ma|x)+0.5)*|
|000037c0| b4 28 52 48 4f 30 6d 61 | 78 29 0d 10 90 29 20 61 |.(RHO0ma|x)...) a|
|000037d0| 25 21 28 31 36 29 3d a8 | 28 94 28 52 48 4f 30 6d |%!(16)=.|(.(RHO0m|
|000037e0| 69 6e 29 2b 30 2e 35 29 | 2a b4 28 52 48 4f 30 6d |in)+0.5)|*.(RHO0m|
|000037f0| 69 6e 29 0d 10 9a 2f 20 | 61 25 21 28 32 34 29 3d |in).../ |a%!(24)=|
|00003800| a8 28 94 28 a4 44 45 47 | 28 4c 41 4d 43 6d 61 78 |.(.(.DEG|(LAMCmax|
|00003810| 29 29 2b 30 2e 35 29 2a | b4 28 4c 41 4d 43 6d 61 |))+0.5)*|.(LAMCma|
|00003820| 78 29 0d 10 a4 2f 20 61 | 25 21 28 33 32 29 3d a8 |x).../ a|%!(32)=.|
|00003830| 28 94 28 a4 44 45 47 28 | 4c 41 4d 43 6d 69 6e 29 |(.(.DEG(|LAMCmin)|
|00003840| 29 2b 30 2e 35 29 2a b4 | 28 4c 41 4d 43 6d 69 6e |)+0.5)*.|(LAMCmin|
|00003850| 29 0d 10 ae 2f 20 61 25 | 21 28 34 30 29 3d a8 28 |).../ a%|!(40)=.(|
|00003860| 94 28 a4 44 45 47 28 4c | 41 4d 41 6d 61 78 29 29 |.(.DEG(L|AMAmax))|
|00003870| 2b 30 2e 35 29 2a b4 28 | 4c 41 4d 41 6d 61 78 29 |+0.5)*.(|LAMAmax)|
|00003880| 0d 10 b8 2f 20 61 25 21 | 28 34 38 29 3d a8 28 94 |.../ a%!|(48)=.(.|
|00003890| 28 a4 44 45 47 28 4c 41 | 4d 41 6d 69 6e 29 29 2b |(.DEG(LA|MAmin))+|
|000038a0| 30 2e 35 29 2a b4 28 4c | 41 4d 41 6d 69 6e 29 0d |0.5)*.(L|AMAmin).|
|000038b0| 10 c2 2f 20 61 25 21 28 | 35 36 29 3d a8 28 94 28 |../ a%!(|56)=.(.(|
|000038c0| a4 44 45 47 28 4c 50 44 | 30 6d 61 78 29 29 2b 30 |.DEG(LPD|0max))+0|
|000038d0| 2e 35 29 2a b4 28 4c 50 | 44 30 6d 61 78 29 0d 10 |.5)*.(LP|D0max)..|
|000038e0| cc 2f 20 61 25 21 28 36 | 34 29 3d a8 28 94 28 a4 |./ a%!(6|4)=.(.(.|
|000038f0| 44 45 47 28 4c 50 44 30 | 6d 69 6e 29 29 2b 30 2e |DEG(LPD0|min))+0.|
|00003900| 35 29 2a b4 28 4c 50 44 | 30 6d 69 6e 29 0d 10 d6 |5)*.(LPD|0min)...|
|00003910| 06 20 3a 0d 10 e0 0a 20 | 41 25 3d 61 25 0d 10 ea |. :.... |A%=a%...|
|00003920| 09 20 42 25 3d 31 0d 10 | f4 09 20 43 25 3d 38 0d |. B%=1..|.. C%=8.|
|00003930| 10 fe 0c 20 d6 20 71 73 | 6f 72 74 0d 11 08 06 20 |... . qs|ort.... |
|00003940| 3a 0d 11 12 24 20 59 6d | 61 78 3d a8 28 94 28 61 |:...$ Ym|ax=.(.(a|
|00003950| 25 21 28 36 34 29 29 2b | 31 29 2a b4 28 61 25 21 |%!(64))+|1)*.(a%!|
|00003960| 28 36 34 29 29 0d 11 1c | 34 20 59 6d 69 6e 3d a8 |(64))...|4 Ymin=.|
|00003970| 28 94 28 61 25 21 28 38 | 29 29 2b 31 29 2a b4 28 |(.(a%!(8|))+1)*.(|
|00003980| 61 25 21 28 38 29 29 3a | e7 20 59 6d 69 6e 3e 30 |a%!(8)):|. Ymin>0|
|00003990| 20 8c 20 59 6d 69 6e 3d | 30 0d 11 26 0c 20 58 6d | . Ymin=|0..&. Xm|
|000039a0| 61 78 3d 50 51 0d 11 30 | 0b 20 58 6d 69 6e 3d 31 |ax=PQ..0|. Xmin=1|
|000039b0| 0d 11 3a 1b 20 59 6d 61 | 78 61 76 3d a8 28 28 59 |..:. Yma|xav=.((Y|
|000039c0| 6d 61 78 2f 32 29 2b 30 | 2e 35 29 0d 11 44 1b 20 |max/2)+0|.5)..D. |
|000039d0| 59 6d 69 6e 61 76 3d a8 | 28 28 59 6d 69 6e 2f 32 |Yminav=.|((Ymin/2|
|000039e0| 29 2b 30 2e 35 29 0d 11 | 4e 20 20 59 7a 65 72 6f |)+0.5)..|N Yzero|
|000039f0| 3d a4 43 44 4e 28 30 2c | 59 6d 69 6e 2c 59 6d 61 |=.CDN(0,|Ymin,Yma|
|00003a00| 78 2c 38 35 30 29 0d 11 | 58 31 20 50 6c 75 73 6d |x,850)..|X1 Plusm|
|00003a10| 72 6b 3d a8 28 28 94 28 | 38 35 30 2b 59 7a 65 72 |rk=.((.(|850+Yzer|
|00003a20| 6f 29 2f 32 29 2b 30 2e | 35 29 2a b4 28 38 35 30 |o)/2)+0.|5)*.(850|
|00003a30| 2b 59 7a 65 72 6f 29 0d | 11 62 30 20 4d 69 6e 75 |+Yzero).|.b0 Minu|
|00003a40| 73 6d 72 6b 3d a8 28 28 | 94 28 59 7a 65 72 6f 2d |smrk=.((|.(Yzero-|
|00003a50| 32 35 29 2f 32 29 2b 30 | 2e 35 29 2a b4 28 59 7a |25)/2)+0|.5)*.(Yz|
|00003a60| 65 72 6f 2d 32 35 29 0d | 11 6c 2b 20 e7 20 4d 69 |ero-25).|.l+ . Mi|
|00003a70| 6e 75 73 6d 72 6b 3c 32 | 35 20 80 20 59 7a 65 72 |nusmrk<2|5 . Yzer|
|00003a80| 6f 3d 32 35 20 8c 20 4d | 69 6e 75 73 6d 72 6b 3d |o=25 . M|inusmrk=|
|00003a90| 32 35 0d 11 76 06 20 e1 | 0d 11 80 06 20 3a 0d 11 |25..v. .|.... :..|
|00003aa0| 8a 0d 20 dd f2 63 75 72 | 76 65 73 0d 11 94 1a 20 |.. ..cur|ves.... |
|00003ab0| 86 20 32 35 2c 59 7a 65 | 72 6f 2c 31 32 35 30 2c |. 25,Yze|ro,1250,|
|00003ac0| 59 7a 65 72 6f 0d 11 9e | 1d 20 86 20 32 35 2c 38 |Yzero...|. . 25,8|
|00003ad0| 32 35 2c 32 35 2c 32 35 | 3a df 20 31 32 35 30 2c |25,25,25|:. 1250,|
|00003ae0| 32 35 0d 11 a8 1c 20 86 | 20 32 35 2c 50 6c 75 73 |25.... .| 25,Plus|
|00003af0| 6d 72 6b 2c 35 30 2c 50 | 6c 75 73 6d 72 6b 0d 11 |mrk,50,P|lusmrk..|
|00003b00| b2 2a 20 e7 20 59 6d 69 | 6e 3c 3e 30 20 8c 20 86 |.* . Ymi|n<>0 . .|
|00003b10| 20 32 35 2c 4d 69 6e 75 | 73 6d 72 6b 2c 35 30 2c | 25,Minu|smrk,50,|
|00003b20| 4d 69 6e 75 73 6d 72 6b | 0d 11 bc 17 20 e3 4e 3d |Minusmrk|.... .N=|
|00003b30| 59 6d 69 6e 20 b8 20 59 | 6d 61 78 20 88 20 34 0d |Ymin . Y|max . 4.|
|00003b40| 11 c6 38 20 86 20 32 35 | 2c a4 43 44 4e 28 4e 2c |..8 . 25|,.CDN(N,|
|00003b50| 59 6d 69 6e 2c 59 6d 61 | 78 2c 38 35 30 29 2c 33 |Ymin,Yma|x,850),3|
|00003b60| 30 2c a4 43 44 4e 28 4e | 2c 59 6d 69 6e 2c 59 6d |0,.CDN(N|,Ymin,Ym|
|00003b70| 61 78 2c 38 35 30 29 0d | 11 d0 08 20 ed 20 4e 0d |ax,850).|... . N.|
|00003b80| 11 da 17 20 e3 4e 3d 30 | 20 b8 20 50 51 20 88 20 |... .N=0| . PQ . |
|00003b90| 50 51 20 81 20 34 0d 11 | e4 3a 20 86 20 a4 43 44 |PQ . 4..|.: . .CD|
|00003ba0| 4e 28 4e 2c 58 6d 69 6e | 2c 58 6d 61 78 2c 31 32 |N(N,Xmin|,Xmax,12|
|00003bb0| 32 35 29 2c 32 35 2c a4 | 43 44 4e 28 4e 2c 58 6d |25),25,.|CDN(N,Xm|
|00003bc0| 69 6e 2c 58 6d 61 78 2c | 31 32 32 35 29 2c 31 30 |in,Xmax,|1225),10|
|00003bd0| 0d 11 ee 08 20 ed 20 4e | 0d 11 f8 0e 20 e7 20 50 |.... . N|.... . P|
|00003be0| 51 3e 33 31 20 8c 0d 12 | 02 19 20 20 e3 4e 3d 30 |Q>31 ...|.. .N=0|
|00003bf0| 20 b8 20 50 51 20 88 20 | 50 51 20 81 20 33 32 0d | . PQ . |PQ . 32.|
|00003c00| 12 0c 3b 20 20 86 20 a4 | 43 44 4e 28 4e 2c 58 6d |..; . .|CDN(N,Xm|
|00003c10| 69 6e 2c 58 6d 61 78 2c | 31 32 32 35 29 2c 32 35 |in,Xmax,|1225),25|
|00003c20| 2c a4 43 44 4e 28 4e 2c | 58 6d 69 6e 2c 58 6d 61 |,.CDN(N,|Xmin,Xma|
|00003c30| 78 2c 31 32 32 35 29 2c | 33 35 0d 12 16 09 20 20 |x,1225),|35.... |
|00003c40| ed 20 4e 0d 12 20 06 20 | cd 0d 12 2a 14 20 86 20 |. N.. . |...*. . |
|00003c50| 33 30 2c 38 34 35 2c 35 | 35 2c 38 34 35 0d 12 34 |30,845,5|5,845..4|
|00003c60| 25 20 ec 20 32 35 2c a4 | 43 44 4e 28 52 48 4f 30 |% . 25,.|CDN(RHO0|
|00003c70| 28 31 29 2c 59 6d 69 6e | 2c 59 6d 61 78 2c 38 35 |(1),Ymin|,Ymax,85|
|00003c80| 30 29 0d 12 3e 0c 20 e3 | 4e 3d 32 b8 50 51 0d 12 |0)..>. .|N=2.PQ..|
|00003c90| 48 39 20 df 20 a4 43 44 | 4e 28 4e 2c 58 6d 69 6e |H9 . .CD|N(N,Xmin|
|00003ca0| 2c 58 6d 61 78 2c 31 32 | 32 35 29 2c a4 43 44 4e |,Xmax,12|25),.CDN|
|00003cb0| 28 52 48 4f 30 28 4e 29 | 2c 59 6d 69 6e 2c 59 6d |(RHO0(N)|,Ymin,Ym|
|00003cc0| 61 78 2c 38 35 30 29 0d | 12 52 08 20 ed 20 4e 0d |ax,850).|.R. . N.|
|00003cd0| 12 5c 45 20 e6 20 31 3a | 86 20 33 30 2c 39 33 35 |.\E . 1:|. 30,935|
|00003ce0| 2c 35 35 2c 39 33 35 3a | f4 20 20 20 20 20 20 20 |,55,935:|. |
|00003cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003d00| 20 20 20 20 46 69 72 73 | 74 20 63 6f 6c 6f 75 72 | Firs|t colour|
|00003d10| 20 62 61 72 0d 12 66 2b | 20 ec 20 32 35 2c a4 43 | bar..f+| . 25,.C|
|00003d20| 44 4e 28 a4 44 45 47 28 | 4c 41 4d 43 28 31 29 29 |DN(.DEG(|LAMC(1))|
|00003d30| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00003d40| 12 70 0c 20 e3 4e 3d 32 | b8 50 51 0d 12 7a 3f 20 |.p. .N=2|.PQ..z? |
|00003d50| df 20 a4 43 44 4e 28 4e | 2c 58 6d 69 6e 2c 58 6d |. .CDN(N|,Xmin,Xm|
|00003d60| 61 78 2c 31 32 32 35 29 | 2c a4 43 44 4e 28 a4 44 |ax,1225)|,.CDN(.D|
|00003d70| 45 47 28 4c 41 4d 43 28 | 4e 29 29 2c 59 6d 69 6e |EG(LAMC(|N)),Ymin|
|00003d80| 2c 59 6d 61 78 2c 38 35 | 30 29 0d 12 84 08 20 ed |,Ymax,85|0).... .|
|00003d90| 20 4e 0d 12 8e 18 20 e6 | 20 32 3a 86 20 33 30 2c | N.... .| 2:. 30,|
|00003da0| 39 30 35 2c 35 35 2c 39 | 30 35 0d 12 98 2b 20 ec |905,55,9|05...+ .|
|00003db0| 20 32 35 2c a4 43 44 4e | 28 a4 44 45 47 28 4c 41 | 25,.CDN|(.DEG(LA|
|00003dc0| 4d 41 28 31 29 29 2c 59 | 6d 69 6e 2c 59 6d 61 78 |MA(1)),Y|min,Ymax|
|00003dd0| 2c 38 35 30 29 0d 12 a2 | 0c 20 e3 4e 3d 32 b8 50 |,850)...|. .N=2.P|
|00003de0| 51 0d 12 ac 3f 20 df 20 | a4 43 44 4e 28 4e 2c 58 |Q...? . |.CDN(N,X|
|00003df0| 6d 69 6e 2c 58 6d 61 78 | 2c 31 32 32 35 29 2c a4 |min,Xmax|,1225),.|
|00003e00| 43 44 4e 28 a4 44 45 47 | 28 4c 41 4d 41 28 4e 29 |CDN(.DEG|(LAMA(N)|
|00003e10| 29 2c 59 6d 69 6e 2c 59 | 6d 61 78 2c 38 35 30 29 |),Ymin,Y|max,850)|
|00003e20| 0d 12 b6 08 20 ed 20 4e | 0d 12 c0 18 20 e6 20 33 |.... . N|.... . 3|
|00003e30| 3a 86 20 33 30 2c 38 37 | 35 2c 35 35 2c 38 37 35 |:. 30,87|5,55,875|
|00003e40| 0d 12 ca 2b 20 ec 20 32 | 35 2c a4 43 44 4e 28 a4 |...+ . 2|5,.CDN(.|
|00003e50| 44 45 47 28 4c 50 44 30 | 28 31 29 29 2c 59 6d 69 |DEG(LPD0|(1)),Ymi|
|00003e60| 6e 2c 59 6d 61 78 2c 38 | 35 30 29 0d 12 d4 0c 20 |n,Ymax,8|50).... |
|00003e70| e3 4e 3d 32 b8 50 51 0d | 12 de 3f 20 df 20 a4 43 |.N=2.PQ.|..? . .C|
|00003e80| 44 4e 28 4e 2c 58 6d 69 | 6e 2c 58 6d 61 78 2c 31 |DN(N,Xmi|n,Xmax,1|
|00003e90| 32 32 35 29 2c a4 43 44 | 4e 28 a4 44 45 47 28 4c |225),.CD|N(.DEG(L|
|00003ea0| 50 44 30 28 4e 29 29 2c | 59 6d 69 6e 2c 59 6d 61 |PD0(N)),|Ymin,Yma|
|00003eb0| 78 2c 38 35 30 29 0d 12 | e8 08 20 ed 20 4e 0d 12 |x,850)..|.. . N..|
|00003ec0| f2 06 20 e1 0d 12 fc 06 | 20 3a 0d 13 06 0e 20 dd |.. .....| :.... .|
|00003ed0| f2 53 74 72 69 6e 67 73 | 0d 13 10 0d 20 58 53 3d |.Strings|.... XS=|
|00003ee0| a8 28 58 53 29 0d 13 1a | 24 20 58 44 24 3d c3 28 |.(XS)...|$ XD$=.(|
|00003ef0| 58 44 29 3a e7 20 58 44 | 3c 31 30 20 8c 20 58 44 |XD):. XD|<10 . XD|
|00003f00| 24 3d 22 30 22 2b 58 44 | 24 0d 13 24 24 20 58 4d |$="0"+XD|$..$$ XM|
|00003f10| 24 3d c3 28 58 4d 29 3a | e7 20 58 4d 3c 31 30 20 |$=.(XM):|. XM<10 |
|00003f20| 8c 20 58 4d 24 3d 22 30 | 22 2b 58 4d 24 0d 13 2e |. XM$="0|"+XM$...|
|00003f30| 24 20 58 53 24 3d c3 28 | 58 53 29 3a e7 20 58 53 |$ XS$=.(|XS):. XS|
|00003f40| 3c 31 30 20 8c 20 58 53 | 24 3d 22 30 22 2b 58 53 |<10 . XS|$="0"+XS|
|00003f50| 24 0d 13 38 06 20 e1 0d | 13 42 06 20 3a 0d 13 4c |$..8. ..|.B. :..L|
|00003f60| 0b 20 dd f2 52 69 73 65 | 0d 13 56 78 20 f1 89 28 |. ..Rise|..Vx ..(|
|00003f70| 32 29 3b 22 77 68 65 6e | 20 53 75 6e 20 72 69 73 |2);"when| Sun ris|
|00003f80| 65 73 20 61 74 20 22 3b | 48 52 24 3b 22 3a 22 3b |es at ";|HR$;":";|
|00003f90| 4d 52 24 3b 22 47 4d 54 | 2c 20 70 6c 61 6e 65 74 |MR$;"GMT|, planet|
|00003fa0| 20 61 6c 74 20 69 73 20 | 22 3b 53 48 53 52 24 3b | alt is |";SHSR$;|
|00003fb0| 41 4c 54 78 64 48 53 52 | 6d 61 78 24 3b 22 2c 22 |ALTxdHSR|max$;","|
|00003fc0| 3b 41 4c 54 78 6d 48 53 | 52 6d 61 78 24 3b 22 2c |;ALTxmHS|Rmax$;",|
|00003fd0| 22 3b 41 4c 54 73 65 63 | 48 53 52 6d 61 78 24 3b |";ALTsec|HSRmax$;|
|00003fe0| 0d 13 60 40 20 f1 22 20 | 61 6e 64 20 61 7a 20 69 |..`@ ." |and az i|
|00003ff0| 73 20 22 3b 41 5a 78 64 | 48 53 52 6d 61 78 24 3b |s ";AZxd|HSRmax$;|
|00004000| 22 2c 22 3b 41 5a 78 6d | 48 53 52 6d 61 78 24 3b |",";AZxm|HSRmax$;|
|00004010| 22 2c 22 3b 41 5a 73 65 | 63 48 53 52 6d 61 78 24 |",";AZse|cHSRmax$|
|00004020| 0d 13 6a 06 20 f1 0d 13 | 74 06 20 e1 0d 13 7e 06 |..j. ...|t. ...~.|
|00004030| 20 3a 0d 13 88 0a 20 dd | f2 53 65 74 0d 13 92 77 | :.... .|.Set...w|
|00004040| 20 f1 89 28 33 29 3b 22 | 77 68 65 6e 20 53 75 6e | ..(3);"|when Sun|
|00004050| 20 73 65 74 73 20 61 74 | 20 22 3b 48 53 24 3b 22 | sets at| ";HS$;"|
|00004060| 3a 22 3b 4d 53 24 3b 22 | 47 4d 54 2c 20 70 6c 61 |:";MS$;"|GMT, pla|
|00004070| 6e 65 74 20 61 6c 74 20 | 69 73 20 22 3b 53 48 53 |net alt |is ";SHS|
|00004080| 53 24 3b 41 4c 54 78 64 | 48 53 53 6d 61 78 24 3b |S$;ALTxd|HSSmax$;|
|00004090| 22 2c 22 3b 41 4c 54 78 | 6d 48 53 53 6d 61 78 24 |",";ALTx|mHSSmax$|
|000040a0| 3b 22 2c 22 3b 41 4c 54 | 73 65 63 48 53 53 6d 61 |;",";ALT|secHSSma|
|000040b0| 78 24 3b 0d 13 9c 40 20 | f1 22 20 61 6e 64 20 61 |x$;...@ |." and a|
|000040c0| 7a 20 69 73 20 22 3b 41 | 5a 78 64 48 53 53 6d 61 |z is ";A|ZxdHSSma|
|000040d0| 78 24 3b 22 2c 22 3b 41 | 5a 78 6d 48 53 53 6d 61 |x$;",";A|ZxmHSSma|
|000040e0| 78 24 3b 22 2c 22 3b 41 | 5a 73 65 63 48 53 53 6d |x$;",";A|ZsecHSSm|
|000040f0| 61 78 24 0d 13 a6 06 20 | f1 0d 13 b0 06 20 e1 0d |ax$.... |..... ..|
|00004100| 13 ba 06 20 3a 0d 13 c4 | 0d 20 dd f2 4d 69 6e 73 |... :...|. ..Mins|
|00004110| 65 63 0d 13 ce 1e 20 e7 | 20 53 57 31 3d 31 20 20 |ec.... .| SW1=1 |
|00004120| f2 4d 69 6e 73 65 63 5f | 49 6e 74 65 67 65 72 73 |.Minsec_|Integers|
|00004130| 0d 13 d8 1d 20 e7 20 53 | 57 31 3d 2d 31 20 f2 4d |.... . S|W1=-1 .M|
|00004140| 69 6e 73 65 63 5f 44 65 | 63 69 6d 61 6c 0d 13 e2 |insec_De|cimal...|
|00004150| 06 20 e1 0d 13 ec 06 20 | 3a 0d 13 f6 16 20 dd f2 |. ..... |:.... ..|
|00004160| 4d 69 6e 73 65 63 5f 49 | 6e 74 65 67 65 72 73 0d |Minsec_I|ntegers.|
|00004170| 14 00 1d 20 53 4e 3d b4 | 28 58 29 3a 58 50 3d 94 |... SN=.|(X):XP=.|
|00004180| 28 58 29 3a 58 44 3d a8 | 28 58 50 29 0d 14 0a 19 |(X):XD=.|(XP)....|
|00004190| 20 41 3d 28 58 50 2d 58 | 44 29 2a 36 30 3a 58 4d | A=(XP-X|D)*60:XM|
|000041a0| 3d a8 28 41 29 0d 14 14 | 1c 20 58 53 3d a8 28 28 |=.(A)...|. XS=.((|
|000041b0| 41 2d 58 4d 29 2a 36 30 | 30 2b 30 2e 35 29 2f 31 |A-XM)*60|0+0.5)/1|
|000041c0| 30 0d 14 1e 0b 20 53 24 | 3d 22 2b 22 0d 14 28 16 |0.... S$|="+"..(.|
|000041d0| 20 e7 20 53 4e 3d 2d 31 | 20 20 8c 20 53 24 3d 22 | . SN=-1| . S$="|
|000041e0| 2d 22 0d 14 32 06 20 e1 | 0d 14 3c 06 20 3a 0d 14 |-"..2. .|..<. :..|
|000041f0| 46 15 20 dd f2 4d 69 6e | 73 65 63 5f 44 65 63 69 |F. ..Min|sec_Deci|
|00004200| 6d 61 6c 0d 14 50 0a 20 | 53 4e 3d 2b 31 0d 14 5a |mal..P. |SN=+1..Z|
|00004210| 21 20 e7 20 58 44 3c 30 | 20 84 20 58 4d 3c 30 20 |! . XD<0| . XM<0 |
|00004220| 84 20 58 53 3c 30 20 8c | 20 53 4e 3d 2d 31 0d 14 |. XS<0 .| SN=-1..|
|00004230| 64 22 20 58 44 31 3d 94 | 28 58 44 29 3a 58 4d 31 |d" XD1=.|(XD):XM1|
|00004240| 3d 94 28 58 4d 29 3a 58 | 53 31 3d 94 28 58 53 29 |=.(XM):X|S1=.(XS)|
|00004250| 0d 14 6e 23 20 58 3d 28 | 28 28 28 58 53 31 2f 36 |..n# X=(|(((XS1/6|
|00004260| 30 29 2b 58 4d 31 29 2f | 36 30 29 2b 58 44 31 29 |0)+XM1)/|60)+XD1)|
|00004270| 2a 53 4e 0d 14 78 06 20 | e1 0d 14 82 06 20 3a 0d |*SN..x. |..... :.|
|00004280| 14 8c 0d 20 dd f2 4a 75 | 6c 64 61 79 0d 14 96 12 |... ..Ju|lday....|
|00004290| 20 e7 20 46 4c 41 47 28 | 31 29 3d 31 20 e1 0d 14 | . FLAG(|1)=1 ...|
|000042a0| a0 20 20 4d 4e 31 3d 4d | 4e 3a 59 52 31 3d 59 52 |. MN1=M|N:YR1=YR|
|000042b0| 3a 46 4c 41 47 28 31 29 | 3d 31 3a 42 3d 30 0d 14 |:FLAG(1)|=1:B=0..|
|000042c0| aa 15 20 e7 20 59 52 31 | 3c 30 20 8c 20 59 52 31 |.. . YR1|<0 . YR1|
|000042d0| 2b 3d 31 0d 14 b4 1c 20 | e7 20 4d 4e 3c 33 20 8c |+=1.... |. MN<3 .|
|000042e0| 20 4d 4e 31 2b 3d 31 32 | 3a 59 52 31 2d 3d 31 0d | MN1+=12|:YR1-=1.|
|000042f0| 14 be 15 20 e7 20 59 52 | 3c 31 35 38 32 20 8c 20 |... . YR|<1582 . |
|00004300| 8d 64 66 54 0d 14 c8 1d | 20 e7 20 59 52 3d 31 35 |.dfT....| . YR=15|
|00004310| 38 32 20 80 20 4d 4e 3c | 31 30 20 8c 20 8d 64 66 |82 . MN<|10 . .df|
|00004320| 54 0d 14 d2 25 20 e7 20 | 59 52 3d 31 35 38 32 20 |T...% . |YR=1582 |
|00004330| 80 20 4d 4e 3d 31 30 20 | 80 20 44 59 3c 31 35 20 |. MN=10 |. DY<15 |
|00004340| 8c 20 8d 64 66 54 0d 14 | dc 1e 20 41 3d a8 28 59 |. .dfT..|.. A=.(Y|
|00004350| 52 31 2f 31 30 30 29 3a | 42 3d 32 2d 41 2b a8 28 |R1/100):|B=2-A+.(|
|00004360| 41 2f 34 29 0d 14 e6 13 | 20 e7 20 59 52 31 3c 30 |A/4)....| . YR1<0|
|00004370| 20 8c 20 8d 64 7a 54 0d | 14 f0 22 20 43 3d a8 28 | . .dzT.|.." C=.(|
|00004380| 33 36 35 2e 32 35 2a 59 | 52 31 29 2d 36 39 34 30 |365.25*Y|R1)-6940|
|00004390| 32 35 3a e5 20 8d 54 44 | 55 0d 14 fa 25 20 43 3d |25:. .TD|U...% C=|
|000043a0| a4 49 54 47 28 28 33 36 | 35 2e 32 35 2a 59 52 31 |.ITG((36|5.25*YR1|
|000043b0| 29 2d 30 2e 37 35 29 2d | 36 39 34 30 32 35 0d 15 |)-0.75)-|694025..|
|000043c0| 04 19 20 44 3d a8 28 33 | 30 2e 36 30 30 31 2a 28 |.. D=.(3|0.6001*(|
|000043d0| 4d 4e 31 2b 31 29 29 0d | 15 0e 15 20 44 4a 44 3d |MN1+1)).|... DJD=|
|000043e0| 42 2b 43 2b 44 2b 44 59 | 2d 30 2e 35 0d 15 18 06 |B+C+D+DY|-0.5....|
|000043f0| 20 e1 0d 15 22 06 20 3a | 0d 15 2c 0d 20 dd f2 43 | ...". :|..,. ..C|
|00004400| 61 6c 64 61 79 0d 15 36 | 12 20 e7 20 46 4c 41 47 |alday..6|. . FLAG|
|00004410| 28 32 29 3d 31 20 e1 0d | 15 40 1e 20 44 3d 44 4a |(2)=1 ..|.@. D=DJ|
|00004420| 44 2b 30 2e 35 3a 49 3d | a4 4c 49 46 28 44 29 3a |D+0.5:I=|.LIF(D):|
|00004430| 46 3d 44 2d 49 0d 15 4a | 15 20 e7 20 46 3d 31 20 |F=D-I..J|. . F=1 |
|00004440| 8c 20 46 3d 30 3a 49 2b | 3d 31 0d 15 54 1a 20 e7 |. F=0:I+|=1..T. .|
|00004450| 20 49 20 3c 3d 20 2d 31 | 31 35 38 36 30 20 8c 20 | I <= -1|15860 . |
|00004460| 8d 44 72 55 0d 15 5e 29 | 20 41 3d a4 4c 49 46 28 |.DrU..^)| A=.LIF(|
|00004470| 28 49 2f 33 36 35 32 34 | 2e 32 35 29 2b 39 2e 39 |(I/36524|.25)+9.9|
|00004480| 38 33 35 37 32 36 45 2d | 31 29 2b 31 34 0d 15 68 |835726E-|1)+14..h|
|00004490| 16 20 49 3d 49 2b 31 2b | 41 2d a4 4c 49 46 28 41 |. I=I+1+|A-.LIF(A|
|000044a0| 2f 34 29 0d 15 72 22 20 | 42 3d a4 4c 49 46 28 28 |/4)..r" |B=.LIF((|
|000044b0| 49 2f 33 36 35 2e 32 35 | 29 2b 38 2e 30 32 36 30 |I/365.25|)+8.0260|
|000044c0| 31 45 2d 31 29 0d 15 7c | 29 20 43 45 3d 49 2d a4 |1E-1)..||) CE=I-.|
|000044d0| 4c 49 46 28 28 33 36 35 | 2e 32 35 2a 42 29 2b 37 |LIF((365|.25*B)+7|
|000044e0| 2e 35 30 30 30 31 45 2d | 31 29 2b 34 31 36 0d 15 |.50001E-|1)+416..|
|000044f0| 86 1e 20 47 3d a4 4c 49 | 46 28 43 45 2f 33 30 2e |.. G=.LI|F(CE/30.|
|00004500| 36 30 30 31 29 3a 4d 4e | 3d 47 2d 31 0d 15 90 26 |6001):MN|=G-1...&|
|00004510| 20 44 59 3d 43 45 2d a4 | 4c 49 46 28 33 30 2e 36 | DY=CE-.|LIF(30.6|
|00004520| 30 30 31 2a 47 29 2b 46 | 3a 59 52 3d 42 2b 31 38 |001*G)+F|:YR=B+18|
|00004530| 39 39 0d 15 9a 17 20 e7 | 20 47 3e 31 33 2e 35 20 |99.... .| G>13.5 |
|00004540| 8c 20 4d 4e 3d 47 2d 31 | 33 0d 15 a4 19 20 e7 20 |. MN=G-1|3.... . |
|00004550| 4d 4e 3c 32 2e 35 20 8c | 20 59 52 3d 42 2b 31 39 |MN<2.5 .| YR=B+19|
|00004560| 30 30 0d 15 ae 13 20 e7 | 20 59 52 3c 31 20 8c 20 |00.... .| YR<1 . |
|00004570| 59 52 2d 3d 31 0d 15 b8 | 0e 20 46 4c 41 47 28 32 |YR-=1...|. FLAG(2|
|00004580| 29 3d 31 0d 15 c2 06 20 | e1 0d 15 cc 06 20 3a 0d |)=1.... |..... :.|
|00004590| 15 d6 0c 20 dd f2 47 74 | 69 6d 65 0d 15 e0 17 20 |... ..Gt|ime.... |
|000045a0| e7 20 46 4c 41 47 28 33 | 29 3d 31 20 8c 20 8d 54 |. FLAG(3|)=1 . .T|
|000045b0| 70 56 0d 15 ea 1c 20 58 | 4d 4e 3d 4d 4e 3a 58 44 |pV.... X|MN=MN:XD|
|000045c0| 59 3d 44 59 3a 46 4c 41 | 47 28 33 29 3d 31 0d 15 |Y=DY:FLA|G(3)=1..|
|000045d0| f4 1f 20 46 4c 41 47 28 | 31 29 3d 30 3a f2 4a 75 |.. FLAG(|1)=0:.Ju|
|000045e0| 6c 64 61 79 3a 58 44 4a | 44 3d 44 4a 44 0d 15 fe |lday:XDJ|D=DJD...|
|000045f0| 18 20 4d 4e 3d 31 3a 44 | 59 3d 30 3a 46 4c 41 47 |. MN=1:D|Y=0:FLAG|
|00004600| 28 31 29 3d 30 0d 16 08 | 18 20 f2 4a 75 6c 64 61 |(1)=0...|. .Julda|
|00004610| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 0d 16 12 |y:T=DJD/|36525...|
|00004620| 2b 20 52 3d 36 2e 36 34 | 36 30 36 35 36 2b 28 35 |+ R=6.64|60656+(5|
|00004630| 2e 31 32 36 32 45 2d 32 | 2b 28 54 2a 32 2e 35 38 |.1262E-2|+(T*2.58|
|00004640| 31 45 2d 35 29 29 2a 54 | 0d 16 1c 2a 20 52 31 3d |1E-5))*T|...* R1=|
|00004650| 32 34 30 30 2a 28 54 2d | 28 28 59 52 2d 31 39 30 |2400*(T-|((YR-190|
|00004660| 30 29 2f 31 30 30 29 29 | 3a 42 3d 32 34 2d 52 2d |0)/100))|:B=24-R-|
|00004670| 52 31 0d 16 26 21 20 54 | 30 3d 28 28 58 44 4a 44 |R1..&! T|0=((XDJD|
|00004680| 2d 44 4a 44 29 2a 36 2e | 35 37 30 39 38 45 2d 32 |-DJD)*6.|57098E-2|
|00004690| 29 2d 42 0d 16 30 13 20 | e7 20 53 57 32 3d 31 20 |)-B..0. |. SW2=1 |
|000046a0| 8c 20 8d 44 62 56 0d 16 | 3a 14 20 e7 20 54 30 3c |. .DbV..|:. . T0<|
|000046b0| 30 20 8c 20 54 30 2b 3d | 32 34 0d 16 44 0f 20 47 |0 . T0+=|24..D. G|
|000046c0| 54 4d 3d 54 49 4d 2d 54 | 30 0d 16 4e 16 20 e7 20 |TM=TIM-T|0..N. . |
|000046d0| 47 54 4d 3c 30 20 8c 20 | 47 54 4d 2b 3d 32 34 0d |GTM<0 . |GTM+=24.|
|000046e0| 16 58 22 20 47 54 4d 3d | 47 54 4d 2a 39 2e 39 37 |.X" GTM=|GTM*9.97|
|000046f0| 32 36 39 35 36 37 37 45 | 2d 31 3a e5 20 8d 74 40 |2695677E|-1:. .t@|
|00004700| 56 0d 16 62 1d 20 47 54 | 4d 3d 28 54 49 4d 2a 31 |V..b. GT|M=(TIM*1|
|00004710| 2e 30 30 32 37 33 37 39 | 30 38 29 2b 54 30 0d 16 |.0027379|08)+T0..|
|00004720| 6c 17 20 e7 20 47 54 4d | 3e 32 34 20 8c 20 47 54 |l. . GTM|>24 . GT|
|00004730| 4d 2d 3d 32 34 0d 16 76 | 16 20 e7 20 47 54 4d 3c |M-=24..v|. . GTM<|
|00004740| 30 20 8c 20 47 54 4d 2b | 3d 32 34 0d 16 80 18 20 |0 . GTM+|=24.... |
|00004750| 58 3d 47 54 4d 3a 53 57 | 31 3d 31 3a f2 4d 69 6e |X=GTM:SW|1=1:.Min|
|00004760| 73 65 63 0d 16 8a 16 20 | 48 53 3d 58 44 3a 4d 53 |sec.... |HS=XD:MS|
|00004770| 3d 58 4d 3a 53 53 3d 58 | 53 0d 16 94 1b 20 4d 4e |=XM:SS=X|S.... MN|
|00004780| 3d 58 4d 4e 3a 44 59 3d | 58 44 59 3a 44 4a 44 3d |=XMN:DY=|XDY:DJD=|
|00004790| 58 44 4a 44 0d 16 9e 06 | 20 e1 0d 16 a8 06 20 3a |XDJD....| ..... :|
|000047a0| 0d 16 b2 0c 20 dd f2 45 | 71 68 6f 72 0d 16 bc 17 |.... ..E|qhor....|
|000047b0| 20 e7 20 46 4c 41 47 28 | 34 29 3d 31 20 8c 20 8d | . FLAG(|4)=1 . .|
|000047c0| 64 5a 56 0d 16 c6 1c 20 | 43 50 48 49 3d 9b 28 50 |dZV.... |CPHI=.(P|
|000047d0| 48 49 29 3a 53 50 48 49 | 3d b5 28 50 48 49 29 0d |HI):SPHI|=.(PHI).|
|000047e0| 16 d0 16 20 46 4c 41 47 | 28 34 29 3d 31 3a 54 50 |... FLAG|(4)=1:TP|
|000047f0| 49 3d 32 2a af 0d 16 da | 14 20 53 59 3d b5 28 59 |I=2*....|. SY=.(Y|
|00004800| 29 3a 43 59 3d 9b 28 59 | 29 0d 16 e4 14 20 53 58 |):CY=.(Y|).... SX|
|00004810| 3d b5 28 58 29 3a 43 58 | 3d 9b 28 58 29 0d 16 ee |=.(X):CX|=.(X)...|
|00004820| 1e 20 53 51 3d 28 53 59 | 2a 53 50 48 49 29 2b 28 |. SQ=(SY|*SPHI)+(|
|00004830| 43 59 2a 43 50 48 49 2a | 43 58 29 0d 16 f8 21 20 |CY*CPHI*|CX)...! |
|00004840| 51 3d a4 41 53 4e 28 53 | 51 29 3a 43 51 3d 9b 28 |Q=.ASN(S|Q):CQ=.(|
|00004850| 51 29 3a 41 3d 43 50 48 | 49 2a 43 51 0d 17 02 18 |Q):A=CPH|I*CQ....|
|00004860| 20 e7 20 41 3c 31 45 2d | 32 30 20 8c 20 41 3d 31 | . A<1E-|20 . A=1|
|00004870| 45 2d 32 30 0d 17 0c 23 | 20 43 50 3d 28 53 59 2d |E-20...#| CP=(SY-|
|00004880| 28 53 50 48 49 2a 53 51 | 29 29 2f 41 3a 50 3d a4 |(SPHI*SQ|))/A:P=.|
|00004890| 41 43 53 28 43 50 29 0d | 17 16 15 20 e7 20 53 58 |ACS(CP).|... . SX|
|000048a0| 3e 30 20 8c 20 50 3d 54 | 50 49 2d 50 0d 17 20 06 |>0 . P=T|PI-P.. .|
|000048b0| 20 e1 0d 17 2a 06 20 3a | 0d 17 34 0c 20 dd f2 48 | ...*. :|..4. ..H|
|000048c0| 72 61 6e 67 0d 17 3e 11 | 20 4c 53 54 3d 47 53 54 |rang..>.| LST=GST|
|000048d0| 2b 4c 4f 4e 47 0d 17 48 | 1a 20 e7 20 4c 53 54 3e |+LONG..H|. . LST>|
|000048e0| 32 34 20 8c 20 4c 53 54 | 3d 4c 53 54 2d 32 34 0d |24 . LST|=LST-24.|
|000048f0| 17 52 19 20 e7 20 4c 53 | 54 3c 30 20 8c 20 4c 53 |.R. . LS|T<0 . LS|
|00004900| 54 3d 4c 53 54 2b 32 34 | 0d 17 5c 0c 20 50 3d 4c |T=LST+24|..\. P=L|
|00004910| 53 54 2d 58 0d 17 66 13 | 20 e7 20 50 3c 30 20 8c |ST-X..f.| . P<0 .|
|00004920| 20 50 3d 50 2b 32 34 0d | 17 70 06 20 e1 0d 17 7a | P=P+24.|.p. ...z|
|00004930| 06 20 3a 0d 17 84 0c 20 | dd f2 4f 62 6c 69 71 0d |. :.... |..Obliq.|
|00004940| 17 8e 12 20 e7 20 46 4c | 41 47 28 35 29 3d 31 20 |... . FL|AG(5)=1 |
|00004950| e1 0d 17 98 0e 20 46 4c | 41 47 28 35 29 3d 31 0d |..... FL|AG(5)=1.|
|00004960| 17 a2 18 20 f2 4a 75 6c | 64 61 79 3a 54 3d 44 4a |... .Jul|day:T=DJ|
|00004970| 44 2f 33 36 35 32 35 0d | 17 ac 2b 20 43 3d 28 28 |D/36525.|..+ C=((|
|00004980| 28 2d 31 2e 38 31 45 2d | 33 2a 54 29 2b 35 2e 39 |(-1.81E-|3*T)+5.9|
|00004990| 45 2d 33 29 2a 54 2b 34 | 2e 36 38 34 35 45 31 29 |E-3)*T+4|.6845E1)|
|000049a0| 2a 54 0d 17 b6 1f 20 45 | 50 53 3d 32 2e 33 34 35 |*T.... E|PS=2.345|
|000049b0| 32 32 39 34 34 34 45 31 | 2d 28 43 2f 33 36 30 30 |229444E1|-(C/3600|
|000049c0| 29 0d 17 c0 1c 20 45 50 | 53 52 3d 45 50 53 2a 31 |).... EP|SR=EPS*1|
|000049d0| 2e 37 35 34 33 32 39 32 | 35 32 45 2d 32 0d 17 ca |.7543292|52E-2...|
|000049e0| 06 20 e1 0d 17 d4 06 20 | 3a 0d 17 de 0c 20 dd f2 |. ..... |:.... ..|
|000049f0| 45 71 65 63 6c 0d 17 e8 | 17 20 e7 20 46 4c 41 47 |Eqecl...|. . FLAG|
|00004a00| 28 37 29 3d 31 20 8c 20 | 8d 54 5a 58 0d 17 f2 16 |(7)=1 . |.TZX....|
|00004a10| 20 54 50 49 3d 32 2a af | 3a 46 4c 41 47 28 37 29 | TPI=2*.|:FLAG(7)|
|00004a20| 3d 31 0d 17 fc 19 20 e7 | 20 46 4c 41 47 28 36 29 |=1.... .| FLAG(6)|
|00004a30| 3d 30 20 8c 20 44 45 50 | 53 3d 30 0d 18 06 1f 20 |=0 . DEP|S=0.... |
|00004a40| f2 4f 62 6c 69 71 3a 45 | 50 53 31 3d a4 52 41 44 |.Obliq:E|PS1=.RAD|
|00004a50| 28 45 50 53 2b 44 45 50 | 53 29 0d 18 10 1e 20 53 |(EPS+DEP|S).... S|
|00004a60| 45 50 53 3d b5 28 45 50 | 53 31 29 3a 43 45 50 53 |EPS=.(EP|S1):CEPS|
|00004a70| 3d 9b 28 45 50 53 31 29 | 0d 18 1a 14 20 43 59 3d |=.(EPS1)|.... CY=|
|00004a80| 9b 28 59 29 3a 53 59 3d | b5 28 59 29 0d 18 24 1d |.(Y):SY=|.(Y)..$.|
|00004a90| 20 e7 20 94 28 43 59 29 | 3c 31 45 2d 32 30 20 8c | . .(CY)|<1E-20 .|
|00004aa0| 20 43 59 3d 31 45 2d 32 | 30 0d 18 2e 1d 20 54 59 | CY=1E-2|0.... TY|
|00004ab0| 3d 53 59 2f 43 59 3a 43 | 58 3d 9b 28 58 29 3a 53 |=SY/CY:C|X=.(X):S|
|00004ac0| 58 3d b5 28 58 29 0d 18 | 38 22 20 53 51 3d 28 53 |X=.(X)..|8" SQ=(S|
|00004ad0| 59 2a 43 45 50 53 29 2d | 28 43 59 2a 53 45 50 53 |Y*CEPS)-|(CY*SEPS|
|00004ae0| 2a 53 58 2a 53 57 33 29 | 0d 18 42 29 20 51 3d a4 |*SX*SW3)|..B) Q=.|
|00004af0| 41 53 4e 28 53 51 29 3a | 41 3d 28 53 58 2a 43 45 |ASN(SQ):|A=(SX*CE|
|00004b00| 50 53 29 2b 28 54 59 2a | 53 45 50 53 2a 53 57 33 |PS)+(TY*|SEPS*SW3|
|00004b10| 29 0d 18 4c 0e 20 50 3d | 99 28 41 2f 43 58 29 0d |)..L. P=|.(A/CX).|
|00004b20| 18 56 13 20 e7 20 43 58 | 3c 30 20 8c 20 50 3d 50 |.V. . CX|<0 . P=P|
|00004b30| 2b af 0d 18 60 16 20 e7 | 20 50 3e 54 50 49 20 8c |+...`. .| P>TPI .|
|00004b40| 20 50 3d 50 2d 54 50 49 | 0d 18 6a 14 20 e7 20 50 | P=P-TPI|..j. . P|
|00004b50| 3c 30 20 8c 20 50 3d 50 | 2b 54 50 49 0d 18 74 06 |<0 . P=P|+TPI..t.|
|00004b60| 20 e1 0d 18 7e 06 20 3a | 0d 18 88 0c 20 dd f2 4e | ...~. :|.... ..N|
|00004b70| 75 74 61 74 0d 18 92 12 | 20 e7 20 46 4c 41 47 28 |utat....| . FLAG(|
|00004b80| 36 29 3d 31 20 e1 0d 18 | 9c 18 20 46 4c 41 47 28 |6)=1 ...|.. FLAG(|
|00004b90| 36 29 3d 31 3a 46 4c 41 | 47 28 37 29 3d 30 0d 18 |6)=1:FLA|G(7)=0..|
|00004ba0| a6 1f 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|00004bb0| 2f 33 36 35 32 35 3a 54 | 32 3d 54 2a 54 0d 18 b0 |/36525:T|2=T*T...|
|00004bc0| 25 20 41 3d 31 2e 30 30 | 30 30 32 31 33 35 38 45 |% A=1.00|0021358E|
|00004bd0| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|00004be0| 29 29 0d 18 ba 1f 20 4c | 53 3d 32 2e 37 39 36 39 |)).... L|S=2.7969|
|00004bf0| 36 37 45 32 2b 33 2e 30 | 33 45 2d 34 2a 54 32 2b |67E2+3.0|3E-4*T2+|
|00004c00| 42 0d 18 c4 25 20 41 3d | 31 2e 33 33 36 38 35 35 |B...% A=|1.336855|
|00004c10| 32 33 31 45 33 2a 54 3a | 42 3d 33 36 30 2a 28 41 |231E3*T:|B=360*(A|
|00004c20| 2d a8 28 41 29 29 0d 18 | ce 20 20 4c 44 3d 32 2e |-.(A))..|. LD=2.|
|00004c30| 37 30 34 33 34 32 45 32 | 2d 31 2e 31 33 33 45 2d |704342E2|-1.133E-|
|00004c40| 33 2a 54 32 2b 42 0d 18 | d8 25 20 41 3d 39 2e 39 |3*T2+B..|.% A=9.9|
|00004c50| 39 39 37 33 36 30 35 36 | 45 31 2a 54 3a 42 3d 33 |99736056|E1*T:B=3|
|00004c60| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 18 e2 1e 20 |60*(A-.(|A)).... |
|00004c70| 4d 53 3d 33 2e 35 38 34 | 37 35 38 45 32 2d 31 2e |MS=3.584|758E2-1.|
|00004c80| 35 45 2d 34 2a 54 32 2b | 42 0d 18 ec 25 20 41 3d |5E-4*T2+|B...% A=|
|00004c90| 31 2e 33 32 35 35 35 32 | 33 35 39 45 33 2a 54 3a |1.325552|359E3*T:|
|00004ca0| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 18 |B=360*(A|-.(A))..|
|00004cb0| f6 20 20 4d 44 3d 32 2e | 39 36 31 30 34 36 45 32 |. MD=2.|961046E2|
|00004cc0| 2b 39 2e 31 39 32 45 2d | 33 2a 54 32 2b 42 0d 19 |+9.192E-|3*T2+B..|
|00004cd0| 00 23 20 41 3d 35 2e 33 | 37 32 36 31 36 36 36 37 |.# A=5.3|72616667|
|00004ce0| 2a 54 3a 42 3d 33 36 30 | 2a 28 41 2d a8 28 41 29 |*T:B=360|*(A-.(A)|
|00004cf0| 29 0d 19 0a 20 20 4e 4d | 3d 32 2e 35 39 31 38 33 |)... NM|=2.59183|
|00004d00| 33 45 32 2b 32 2e 30 37 | 38 45 2d 33 2a 54 32 2d |3E2+2.07|8E-3*T2-|
|00004d10| 42 0d 19 14 1f 20 54 4c | 53 3d 32 2a a4 52 41 44 |B.... TL|S=2*.RAD|
|00004d20| 28 4c 53 29 3a 4e 4d 3d | a4 52 41 44 28 4e 4d 29 |(LS):NM=|.RAD(NM)|
|00004d30| 0d 19 1e 1f 20 54 4e 4d | 3d 32 2a a4 52 41 44 28 |.... TNM|=2*.RAD(|
|00004d40| 4e 4d 29 3a 4d 53 3d a4 | 52 41 44 28 4d 53 29 0d |NM):MS=.|RAD(MS).|
|00004d50| 19 28 1f 20 54 4c 44 3d | 32 2a a4 52 41 44 28 4c |.(. TLD=|2*.RAD(L|
|00004d60| 44 29 3a 4d 44 3d a4 52 | 41 44 28 4d 44 29 0d 19 |D):MD=.R|AD(MD)..|
|00004d70| 32 da 20 44 50 53 49 3d | 28 2d 31 37 2e 32 33 32 |2. DPSI=|(-17.232|
|00004d80| 37 2d 31 2e 37 33 37 45 | 2d 32 2a 54 29 2a b5 28 |7-1.737E|-2*T)*.(|
|00004d90| 4e 4d 29 2b 28 2d 31 2e | 32 37 32 39 2d 31 2e 33 |NM)+(-1.|2729-1.3|
|00004da0| 45 2d 34 2a 54 29 2a b5 | 28 54 4c 53 29 2b 32 2e |E-4*T)*.|(TLS)+2.|
|00004db0| 30 38 38 45 2d 31 2a b5 | 28 54 4e 4d 29 2d 32 2e |088E-1*.|(TNM)-2.|
|00004dc0| 30 33 37 45 2d 31 2a b5 | 28 54 4c 44 29 2b 28 31 |037E-1*.|(TLD)+(1|
|00004dd0| 2e 32 36 31 45 2d 31 2d | 33 2e 31 45 2d 34 2a 54 |.261E-1-|3.1E-4*T|
|00004de0| 29 2a b5 28 4d 53 29 2b | 36 2e 37 35 45 2d 32 2a |)*.(MS)+|6.75E-2*|
|00004df0| b5 28 4d 44 29 2d 28 34 | 2e 39 37 45 2d 32 2d 31 |.(MD)-(4|.97E-2-1|
|00004e00| 2e 32 45 2d 34 2a 54 29 | 2a b5 28 54 4c 53 2b 4d |.2E-4*T)|*.(TLS+M|
|00004e10| 53 29 2d 33 2e 34 32 45 | 2d 32 2a b5 28 54 4c 44 |S)-3.42E|-2*.(TLD|
|00004e20| 2d 4e 4d 29 2d 32 2e 36 | 31 45 2d 32 2a b5 28 54 |-NM)-2.6|1E-2*.(T|
|00004e30| 4c 44 2b 4d 44 29 2b 32 | 2e 31 34 45 2d 32 2a b5 |LD+MD)+2|.14E-2*.|
|00004e40| 28 54 4c 53 2d 4d 53 29 | 0d 19 3c 48 20 44 50 53 |(TLS-MS)|..<H DPS|
|00004e50| 49 3d 44 50 53 49 2d 31 | 2e 34 39 45 2d 32 2a b5 |I=DPSI-1|.49E-2*.|
|00004e60| 28 54 4c 53 2d 54 4c 44 | 2b 4d 44 29 2b 31 2e 32 |(TLS-TLD|+MD)+1.2|
|00004e70| 34 45 2d 32 2a b5 28 54 | 4c 53 2d 4e 4d 29 2b 31 |4E-2*.(T|LS-NM)+1|
|00004e80| 2e 31 34 45 2d 32 2a b5 | 28 54 4c 44 2d 4d 44 29 |.14E-2*.|(TLD-MD)|
|00004e90| 0d 19 46 b0 20 44 45 50 | 53 3d 28 39 2e 32 31 2b |..F. DEP|S=(9.21+|
|00004ea0| 39 2e 31 45 2d 34 2a 54 | 29 2a 9b 28 4e 4d 29 2b |9.1E-4*T|)*.(NM)+|
|00004eb0| 28 35 2e 35 32 32 45 2d | 31 2d 32 2e 39 45 2d 34 |(5.522E-|1-2.9E-4|
|00004ec0| 2a 54 29 2a 9b 28 54 4c | 53 29 2d 39 2e 30 34 45 |*T)*.(TL|S)-9.04E|
|00004ed0| 2d 32 2a 9b 28 54 4e 4d | 29 2b 38 2e 38 34 45 2d |-2*.(TNM|)+8.84E-|
|00004ee0| 32 2a 9b 28 54 4c 44 29 | 2b 32 2e 31 36 45 2d 32 |2*.(TLD)|+2.16E-2|
|00004ef0| 2a 9b 28 54 4c 53 2b 4d | 53 29 2b 31 2e 38 33 45 |*.(TLS+M|S)+1.83E|
|00004f00| 2d 32 2a 9b 28 54 4c 44 | 2d 4e 4d 29 2b 31 2e 31 |-2*.(TLD|-NM)+1.1|
|00004f10| 33 45 2d 32 2a 9b 28 54 | 4c 44 2b 4d 44 29 2d 39 |3E-2*.(T|LD+MD)-9|
|00004f20| 2e 33 45 2d 33 2a 9b 28 | 54 4c 53 2d 4d 53 29 2d |.3E-3*.(|TLS-MS)-|
|00004f30| 36 2e 36 45 2d 33 2a 9b | 28 54 4c 53 2d 4e 4d 29 |6.6E-3*.|(TLS-NM)|
|00004f40| 0d 19 50 22 20 44 50 53 | 49 3d 44 50 53 49 2f 33 |..P" DPS|I=DPSI/3|
|00004f50| 36 30 30 3a 44 45 50 53 | 3d 44 45 50 53 2f 33 36 |600:DEPS|=DEPS/36|
|00004f60| 30 30 0d 19 5a 06 20 e1 | 0d 19 64 06 20 3a 0d 19 |00..Z. .|..d. :..|
|00004f70| 6e 0e 20 dd f2 41 6e 6f | 6d 61 6c 79 0d 19 78 0c |n. ..Ano|maly..x.|
|00004f80| 20 54 50 49 3d 32 2a af | 0d 19 82 1c 20 4d 3d 4d | TPI=2*.|.... M=M|
|00004f90| 41 2d 54 50 49 2a a8 28 | 4d 41 2f 54 50 49 29 3a |A-TPI*.(|MA/TPI):|
|00004fa0| 45 41 3d 4d 0d 19 8c 17 | 20 44 4c 41 3d 45 41 2d |EA=M....| DLA=EA-|
|00004fb0| 28 53 2a b5 28 45 41 29 | 29 2d 4d 0d 19 96 18 20 |(S*.(EA)|)-M.... |
|00004fc0| e7 20 94 28 44 4c 41 29 | 3c 31 45 2d 36 20 8c 8d |. .(DLA)|<1E-6 ..|
|00004fd0| 74 74 59 0d 19 a0 1a 20 | 44 4c 41 3d 44 4c 41 2f |ttY.... |DLA=DLA/|
|00004fe0| 28 31 2d 28 53 2a 9b 28 | 45 41 29 29 29 0d 19 aa |(1-(S*.(|EA)))...|
|00004ff0| 15 20 45 41 3d 45 41 2d | 44 4c 41 3a e5 20 8d 74 |. EA=EA-|DLA:. .t|
|00005000| 4c 59 0d 19 b4 20 20 54 | 4e 55 32 3d b6 28 28 31 |LY... T|NU2=.((1|
|00005010| 2b 53 29 2f 28 31 2d 53 | 29 29 2a b7 28 45 41 2f |+S)/(1-S|))*.(EA/|
|00005020| 32 29 0d 19 be 11 20 4e | 55 3d 32 2a 99 28 54 4e |2).... N|U=2*.(TN|
|00005030| 55 32 29 0d 19 c8 06 20 | e1 0d 19 d2 06 20 3a 0d |U2).... |..... :.|
|00005040| 19 dc 0a 20 dd f2 53 75 | 6e 0d 19 e6 1f 20 f2 4a |... ..Su|n.... .J|
|00005050| 75 6c 64 61 79 3a 54 3d | 44 4a 44 2f 33 36 35 32 |ulday:T=|DJD/3652|
|00005060| 35 3a 54 32 3d 54 2a 54 | 0d 19 f0 25 20 41 3d 31 |5:T2=T*T|...% A=1|
|00005070| 2e 30 30 30 30 32 31 33 | 35 39 45 32 2a 54 3a 42 |.0000213|59E2*T:B|
|00005080| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 19 fa |=360*(A-|.(A))...|
|00005090| 21 20 4c 53 3d 32 2e 37 | 39 36 39 36 36 38 45 32 |! LS=2.7|969668E2|
|000050a0| 2b 33 2e 30 32 35 45 2d | 34 2a 54 32 2b 42 0d 1a |+3.025E-|4*T2+B..|
|000050b0| 04 25 20 41 3d 39 2e 39 | 39 39 37 33 36 30 34 32 |.% A=9.9|99736042|
|000050c0| 45 31 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E1*T:B=3|60*(A-.(|
|000050d0| 41 29 29 0d 1a 0e 2a 20 | 4d 53 3d 33 2e 35 38 34 |A))...* |MS=3.584|
|000050e0| 37 35 38 33 45 32 2d 28 | 31 2e 35 45 2d 34 2b 33 |7583E2-(|1.5E-4+3|
|000050f0| 2e 33 45 2d 36 2a 54 29 | 2a 54 32 2b 42 0d 1a 18 |.3E-6*T)|*T2+B...|
|00005100| 27 20 53 3d 31 2e 36 37 | 35 31 30 34 45 2d 32 2d |' S=1.67|5104E-2-|
|00005110| 34 2e 31 38 45 2d 35 2a | 54 2d 31 2e 32 36 45 2d |4.18E-5*|T-1.26E-|
|00005120| 37 2a 54 32 0d 1a 22 19 | 20 4d 41 3d a4 52 41 44 |7*T2..".| MA=.RAD|
|00005130| 28 4d 53 29 3a f2 41 6e | 6f 6d 61 6c 79 0d 1a 2c |(MS):.An|omaly..,|
|00005140| 25 20 41 3d 36 2e 32 35 | 35 32 30 39 34 37 32 45 |% A=6.25|5209472E|
|00005150| 31 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |1*T:B=36|0*(A-.(A|
|00005160| 29 29 0d 1a 36 16 20 41 | 31 3d a4 52 41 44 28 31 |))..6. A|1=.RAD(1|
|00005170| 35 33 2e 32 33 2b 42 29 | 0d 1a 40 25 20 41 3d 31 |53.23+B)|..@% A=1|
|00005180| 2e 32 35 31 30 34 31 38 | 39 34 45 32 2a 54 3a 42 |.2510418|94E2*T:B|
|00005190| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 1a 4a |=360*(A-|.(A))..J|
|000051a0| 16 20 42 31 3d a4 52 41 | 44 28 32 31 36 2e 35 37 |. B1=.RA|D(216.57|
|000051b0| 2b 42 29 0d 1a 54 25 20 | 41 3d 39 2e 31 35 36 37 |+B)..T% |A=9.1567|
|000051c0| 36 36 30 32 38 45 31 2a | 54 3a 42 3d 33 36 30 2a |66028E1*|T:B=360*|
|000051d0| 28 41 2d a8 28 41 29 29 | 0d 1a 5e 16 20 43 31 3d |(A-.(A))|..^. C1=|
|000051e0| a4 52 41 44 28 33 31 32 | 2e 36 39 2b 42 29 0d 1a |.RAD(312|.69+B)..|
|000051f0| 68 25 20 41 3d 31 2e 32 | 33 36 38 35 33 30 39 35 |h% A=1.2|36853095|
|00005200| 45 33 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E3*T:B=3|60*(A-.(|
|00005210| 41 29 29 0d 1a 72 21 20 | 44 31 3d a4 52 41 44 28 |A))..r! |D1=.RAD(|
|00005220| 33 35 30 2e 37 34 2d 31 | 2e 34 34 45 2d 33 2a 54 |350.74-1|.44E-3*T|
|00005230| 32 2b 42 29 0d 1a 7c 1b | 20 45 31 3d a4 52 41 44 |2+B)..|.| E1=.RAD|
|00005240| 28 32 33 31 2e 31 39 2b | 32 30 2e 32 2a 54 29 0d |(231.19+|20.2*T).|
|00005250| 1a 86 25 20 41 3d 31 2e | 38 33 31 33 35 33 32 30 |..% A=1.|83135320|
|00005260| 38 45 32 2a 54 3a 42 3d | 33 36 30 2a 28 41 2d a8 |8E2*T:B=|360*(A-.|
|00005270| 28 41 29 29 0d 1a 90 15 | 20 48 31 3d a4 52 41 44 |(A))....| H1=.RAD|
|00005280| 28 33 35 33 2e 34 2b 42 | 29 0d 1a 9a 4a 20 44 4c |(353.4+B|)...J DL|
|00005290| 3d 31 2e 33 34 45 2d 33 | 2a 9b 28 41 31 29 2b 31 |=1.34E-3|*.(A1)+1|
|000052a0| 2e 35 34 45 2d 33 2a 9b | 28 42 31 29 2b 32 45 2d |.54E-3*.|(B1)+2E-|
|000052b0| 33 2a 9b 28 43 31 29 2b | 31 2e 37 39 45 2d 33 2a |3*.(C1)+|1.79E-3*|
|000052c0| b5 28 44 31 29 2b 31 2e | 37 38 45 2d 33 2a b5 28 |.(D1)+1.|78E-3*.(|
|000052d0| 45 31 29 0d 1a a4 50 20 | 44 52 3d 35 2e 34 33 45 |E1)...P |DR=5.43E|
|000052e0| 2d 36 2a b5 28 41 31 29 | 2b 31 2e 35 37 35 45 2d |-6*.(A1)|+1.575E-|
|000052f0| 35 2a b5 28 42 31 29 2b | 31 2e 36 32 37 45 2d 35 |5*.(B1)+|1.627E-5|
|00005300| 2a b5 28 43 31 29 2b 33 | 2e 30 37 36 45 2d 35 2a |*.(C1)+3|.076E-5*|
|00005310| 9b 28 44 31 29 2b 39 2e | 32 37 45 2d 36 2a b5 28 |.(D1)+9.|27E-6*.(|
|00005320| 48 31 29 0d 1a ae 22 20 | 4c 53 4e 3d 4e 55 2b a4 |H1)..." |LSN=NU+.|
|00005330| 52 41 44 28 4c 53 2d 4d | 53 2b 44 4c 29 3a 54 50 |RAD(LS-M|S+DL):TP|
|00005340| 49 3d 32 2a af 0d 1a b8 | 21 20 52 53 4e 3d 31 2e |I=2*....|! RSN=1.|
|00005350| 30 30 30 30 30 30 32 2a | 28 31 2d 53 2a 9b 28 45 |0000002*|(1-S*.(E|
|00005360| 41 29 29 2b 44 52 0d 1a | c2 20 20 e7 20 4c 53 4e |A))+DR..|. . LSN|
|00005370| 3c 30 20 8c 20 4c 53 4e | 3d 4c 53 4e 2b 54 50 49 |<0 . LSN|=LSN+TPI|
|00005380| 3a e5 8d 64 42 5a 0d 1a | cc 23 20 e7 20 4c 53 4e |:..dBZ..|.# . LSN|
|00005390| 3e 54 50 49 20 8c 20 4c | 53 4e 3d 4c 53 4e 2d 54 |>TPI . L|SN=LSN-T|
|000053a0| 50 49 3a e5 20 8d 64 4c | 5a 0d 1a d6 06 20 e1 0d |PI:. .dL|Z.... ..|
|000053b0| 1a e0 06 20 3a 0d 1a ea | 0c 20 dd f2 53 75 6e 72 |... :...|. ..Sunr|
|000053c0| 73 0d 1a f4 16 20 44 59 | 30 3d 44 59 3a 44 59 3d |s.... DY|0=DY:DY=|
|000053d0| 44 59 30 2b 30 2e 35 0d | 1a fe 0d 20 f2 53 75 6e |DY0+0.5.|... .Sun|
|000053e0| 72 73 75 6e 0d 1b 08 12 | 20 e7 20 45 52 52 31 20 |rsun....| . ERR1 |
|000053f0| 3c 3e 20 30 20 e1 0d 1b | 12 22 20 41 4c 3d 4c 4f |<> 0 ...|." AL=LO|
|00005400| 4e 47 3a 54 52 3d 4c 53 | 54 52 2d 41 4c 3a 54 53 |NG:TR=LS|TR-AL:TS|
|00005410| 3d 4c 53 54 53 2d 41 4c | 0d 1b 1c 22 20 f2 43 6f |=LSTS-AL|..." .Co|
|00005420| 72 72 65 63 74 3a 44 59 | 3d 44 59 30 3a 54 49 4d |rrect:DY|=DY0:TIM|
|00005430| 3d 54 52 3a 53 57 32 3d | 2d 31 0d 1b 26 19 20 f2 |=TR:SW2=|-1..&. .|
|00005440| 47 74 69 6d 65 3a 45 52 | 52 32 3d 30 3a 45 52 52 |Gtime:ER|R2=0:ERR|
|00005450| 33 3d 30 0d 1b 30 1c 20 | e7 20 47 54 4d 3c 36 2e |3=0..0. |. GTM<6.|
|00005460| 35 35 32 45 2d 32 20 8c | 20 45 52 52 33 3d 31 0d |552E-2 .| ERR3=1.|
|00005470| 1b 3a 1b 20 47 54 4d 52 | 3d 47 54 4d 3a 54 49 4d |.:. GTMR|=GTM:TIM|
|00005480| 3d 54 53 3a f2 47 74 69 | 6d 65 0d 1b 44 16 20 47 |=TS:.Gti|me..D. G|
|00005490| 54 4d 53 3d 47 54 4d 3a | 44 4a 44 30 3d 44 4a 44 |TMS=GTM:|DJD0=DJD|
|000054a0| 0d 1b 4e 1e 20 44 4a 44 | 3d 44 4a 44 30 2b 47 54 |..N. DJD|=DJD0+GT|
|000054b0| 4d 52 2f 32 34 3a f2 53 | 75 6e 72 73 75 6e 0d 1b |MR/24:.S|unrsun..|
|000054c0| 58 11 20 e7 20 45 52 52 | 31 20 3c 3e 30 20 e1 0d |X. . ERR|1 <>0 ..|
|000054d0| 1b 62 18 20 41 5a 52 30 | 3d 41 5a 52 3a 54 52 3d |.b. AZR0|=AZR:TR=|
|000054e0| 4c 53 54 52 2d 41 4c 0d | 1b 6c 1e 20 44 4a 44 3d |LSTR-AL.|.l. DJD=|
|000054f0| 44 4a 44 30 2b 47 54 4d | 53 2f 32 34 3a f2 53 75 |DJD0+GTM|S/24:.Su|
|00005500| 6e 72 73 75 6e 0d 1b 76 | 11 20 e7 20 45 52 52 31 |nrsun..v|. . ERR1|
|00005510| 20 3c 3e 30 20 e1 0d 1b | 80 06 20 3a 0d 1b 8a 21 | <>0 ...|.. :...!|
|00005520| 20 41 5a 53 30 3d 41 5a | 53 3a 54 53 3d 4c 53 54 | AZS0=AZ|S:TS=LST|
|00005530| 53 2d 41 4c 3a f2 43 6f | 72 72 65 63 74 0d 1b 94 |S-AL:.Co|rrect...|
|00005540| 12 20 54 49 4d 3d 54 52 | 3a f2 47 74 69 6d 65 0d |. TIM=TR|:.Gtime.|
|00005550| 1b 9e 1c 20 e7 20 47 54 | 4d 3c 36 2e 35 35 32 45 |... . GT|M<6.552E|
|00005560| 2d 32 20 8c 20 45 52 52 | 32 3d 31 0d 1b a8 19 20 |-2 . ERR|2=1.... |
|00005570| 48 53 52 3d 48 53 3a 4d | 53 52 3d 4d 53 3a 53 53 |HSR=HS:M|SR=MS:SS|
|00005580| 52 3d 53 53 0d 1b b2 12 | 20 54 49 4d 3d 54 53 3a |R=SS....| TIM=TS:|
|00005590| f2 47 74 69 6d 65 0d 1b | bc 1c 20 e7 20 47 54 4d |.Gtime..|.. . GTM|
|000055a0| 3c 36 2e 35 35 32 45 2d | 32 20 8c 20 45 52 52 33 |<6.552E-|2 . ERR3|
|000055b0| 3d 31 0d 1b c6 19 20 48 | 53 53 3d 48 53 3a 4d 53 |=1.... H|SS=HS:MS|
|000055c0| 53 3d 4d 53 3a 53 53 53 | 3d 53 53 0d 1b d0 06 20 |S=MS:SSS|=SS.... |
|000055d0| e1 0d 1b da 06 20 3a 0d | 1b e4 0e 20 dd f2 43 6f |..... :.|... ..Co|
|000055e0| 72 72 65 63 74 0d 1b ee | 16 20 e7 20 54 52 3c 30 |rrect...|. . TR<0|
|000055f0| 20 8c 20 54 52 3d 54 52 | 2b 32 34 0d 1b f8 16 20 | . TR=TR|+24.... |
|00005600| e7 20 54 53 3c 30 20 8c | 20 54 53 3d 54 53 2b 32 |. TS<0 .| TS=TS+2|
|00005610| 34 0d 1c 02 17 20 e7 20 | 54 52 3e 32 34 20 8c 20 |4.... . |TR>24 . |
|00005620| 54 52 3d 54 52 2d 32 34 | 0d 1c 0c 17 20 e7 20 54 |TR=TR-24|.... . T|
|00005630| 53 3e 32 34 20 8c 20 54 | 53 3d 54 53 2d 32 34 0d |S>24 . T|S=TS-24.|
|00005640| 1c 16 06 20 e1 0d 1c 20 | 06 20 3a 0d 1c 2a 0e 20 |... ... |. :..*. |
|00005650| dd f2 53 75 6e 72 73 75 | 6e 0d 1c 34 15 20 f2 53 |..Sunrsu|n..4. .S|
|00005660| 75 6e 3a f2 4e 75 74 61 | 74 3a 48 54 3d 30 0d 1c |un:.Nuta|t:HT=0..|
|00005670| 3e 28 20 58 3d 4c 53 4e | 2b 31 2e 37 34 35 33 32 |>( X=LSN|+1.74532|
|00005680| 39 32 35 32 45 2d 32 2a | 28 44 50 53 49 2d 35 2e |9252E-2*|(DPSI-5.|
|00005690| 36 39 45 2d 33 29 0d 1c | 48 16 20 59 3d 30 3a 53 |69E-3)..|H. Y=0:S|
|000056a0| 57 33 3d 2d 31 3a f2 45 | 71 65 63 6c 0d 1c 52 1f |W3=-1:.E|qecl..R.|
|000056b0| 20 58 3d 33 2e 38 31 39 | 37 31 38 36 33 34 2a 50 | X=3.819|718634*P|
|000056c0| 3a 59 3d 51 3a f2 52 69 | 73 65 74 0d 1c 5c 06 20 |:Y=Q:.Ri|set..\. |
|000056d0| e1 0d 1c 66 06 20 3a 0d | 1c 70 0c 20 dd f2 52 69 |...f. :.|.p. ..Ri|
|000056e0| 73 65 74 0d 1c 7a 17 20 | e7 20 46 4c 41 47 28 39 |set..z. |. FLAG(9|
|000056f0| 29 3d 31 20 8c 20 8d 74 | 58 5c 0d 1c 84 1c 20 43 |)=1 . .t|X\.... C|
|00005700| 50 48 49 3d 9b 28 50 48 | 49 29 3a 53 50 48 49 3d |PHI=.(PH|I):SPHI=|
|00005710| b5 28 50 48 49 29 0d 1c | 8e 16 20 54 50 49 3d 32 |.(PHI)..|.. TPI=2|
|00005720| 2a af 3a 46 4c 41 47 28 | 39 29 3d 31 0d 1c 98 16 |*.:FLAG(|9)=1....|
|00005730| 20 43 59 3d 9b 28 59 29 | 3a 41 3d 43 59 2a 43 50 | CY=.(Y)|:A=CY*CP|
|00005740| 48 49 0d 1c a2 1b 20 e7 | 20 94 28 41 29 3c 31 45 |HI.... .| .(A)<1E|
|00005750| 2d 31 30 20 f2 45 72 72 | 6f 72 33 3a e1 0d 1c ac |-10 .Err|or3:....|
|00005760| 11 20 43 50 53 49 3d 53 | 50 48 49 2f 43 59 0d 1c |. CPSI=S|PHI/CY..|
|00005770| b6 16 20 e7 20 43 50 53 | 49 3e 31 20 8c 20 43 50 |.. . CPS|I>1 . CP|
|00005780| 53 49 3d 31 0d 1c c0 18 | 20 e7 20 43 50 53 49 3c |SI=1....| . CPSI<|
|00005790| 2d 31 20 8c 20 43 50 53 | 49 3d 2d 31 0d 1c ca 1f |-1 . CPS|I=-1....|
|000057a0| 20 50 53 49 3d a4 41 43 | 53 28 43 50 53 49 29 3a | PSI=.AC|S(CPSI):|
|000057b0| 53 50 53 49 3d b5 28 50 | 53 49 29 0d 1c d4 20 20 |SPSI=.(P|SI)... |
|000057c0| 44 48 3d 44 49 53 2a 53 | 50 53 49 3a 59 31 3d 59 |DH=DIS*S|PSI:Y1=Y|
|000057d0| 2b 28 44 49 53 2a 43 50 | 53 49 29 0d 1c de 16 20 |+(DIS*CP|SI).... |
|000057e0| 53 59 3d b5 28 59 31 29 | 3a 54 59 3d b7 28 59 31 |SY=.(Y1)|:TY=.(Y1|
|000057f0| 29 0d 1c e8 19 20 43 48 | 3d 28 2d 31 2a 53 50 48 |).... CH|=(-1*SPH|
|00005800| 49 2a 54 59 29 2f 43 50 | 48 49 0d 1c f2 16 20 e7 |I*TY)/CP|HI.... .|
|00005810| 20 43 48 3c 2d 31 20 f2 | 45 72 72 6f 72 31 3a e1 | CH<-1 .|Error1:.|
|00005820| 0d 1c fc 15 20 e7 20 43 | 48 3e 31 20 f2 45 72 72 |.... . C|H>1 .Err|
|00005830| 6f 72 32 3a e1 0d 1d 06 | 16 20 45 52 52 31 3d 30 |or2:....|. ERR1=0|
|00005840| 3a 48 3d a4 41 43 53 28 | 43 48 29 0d 1d 10 19 20 |:H=.ACS(|CH).... |
|00005850| 48 3d 28 48 2b 44 48 29 | 2a 33 2e 38 31 39 37 31 |H=(H+DH)|*3.81971|
|00005860| 38 36 33 34 0d 1d 1a 19 | 20 4c 53 54 52 3d 32 34 |8634....| LSTR=24|
|00005870| 2b 58 2d 48 3a 4c 53 54 | 53 3d 58 2b 48 0d 1d 24 |+X-H:LST|S=X+H..$|
|00005880| 20 20 43 41 5a 52 3d 53 | 59 2f 43 50 48 49 3a 41 | CAZR=S|Y/CPHI:A|
|00005890| 5a 52 3d a4 41 43 53 28 | 43 41 5a 52 29 0d 1d 2e |ZR=.ACS(|CAZR)...|
|000058a0| 24 20 41 5a 53 3d 54 50 | 49 2d 41 5a 52 3a 42 3d |$ AZS=TP|I-AZR:B=|
|000058b0| 4c 53 54 52 3a 43 3d 32 | 34 3a f2 41 64 6a 75 73 |LSTR:C=2|4:.Adjus|
|000058c0| 74 0d 1d 38 21 20 4c 53 | 54 52 3d 42 3a 42 3d 4c |t..8! LS|TR=B:B=L|
|000058d0| 53 54 53 3a f2 41 64 6a | 75 73 74 3a 4c 53 54 53 |STS:.Adj|ust:LSTS|
|000058e0| 3d 42 0d 1d 42 1e 20 42 | 3d 41 5a 52 3a 43 3d 54 |=B..B. B|=AZR:C=T|
|000058f0| 50 49 3a f2 41 64 6a 75 | 73 74 3a 41 5a 52 3d 42 |PI:.Adju|st:AZR=B|
|00005900| 0d 1d 4c 18 20 42 3d 41 | 5a 53 3a f2 41 64 6a 75 |..L. B=A|ZS:.Adju|
|00005910| 73 74 3a 41 5a 53 3d 42 | 0d 1d 56 06 20 e1 0d 1d |st:AZS=B|..V. ...|
|00005920| 60 06 20 3a 0d 1d 6a 0d | 20 dd f2 41 64 6a 75 73 |`. :..j.| ..Adjus|
|00005930| 74 0d 1d 74 12 20 e7 20 | 42 3c 30 20 8c 20 42 3d |t..t. . |B<0 . B=|
|00005940| 42 2b 43 0d 1d 7e 12 20 | e7 20 42 3e 43 20 8c 20 |B+C..~. |. B>C . |
|00005950| 42 3d 42 2d 43 0d 1d 88 | 06 20 e1 0d 1d 92 06 20 |B=B-C...|. ..... |
|00005960| 3a 0d 1d 9c 0d 20 dd f2 | 45 72 72 6f 72 31 0d 1d |:.... ..|Error1..|
|00005970| a6 21 20 45 52 52 31 3d | 2d 31 3a f1 22 2a 2a 20 |.! ERR1=|-1:."** |
|00005980| 63 69 72 63 75 6d 70 6f | 6c 61 72 20 2a 2a 22 0d |circumpo|lar **".|
|00005990| 1d b0 06 20 e1 0d 1d ba | 06 20 3a 0d 1d c4 0d 20 |... ....|. :.... |
|000059a0| dd f2 45 72 72 6f 72 32 | 0d 1d ce 20 20 45 52 52 |..Error2|... ERR|
|000059b0| 31 3d 31 3a f1 22 2a 2a | 20 6e 65 76 65 72 20 72 |1=1:."**| never r|
|000059c0| 69 73 65 73 20 2a 2a 22 | 0d 1d d8 06 20 e1 0d 1d |ises **"|.... ...|
|000059d0| e2 06 20 3a 0d 1d ec 10 | 20 dd 52 50 4f 43 45 72 |.. :....| .RPOCEr|
|000059e0| 72 6f 72 33 0d 1d f6 2b | 20 45 52 52 31 3d 32 3a |ror3...+| ERR1=2:|
|000059f0| f1 22 2a 2a 20 69 6d 70 | 6f 73 73 69 62 6c 65 20 |."** imp|ossible |
|00005a00| 63 61 6c 63 75 6c 61 74 | 69 6f 6e 20 2a 2a 22 0d |calculat|ion **".|
|00005a10| 1e 00 06 20 e1 0d 1e 0a | 06 20 3a 0d 1e 14 0f 20 |... ....|. :.... |
|00005a20| dd f2 50 65 6c 65 6d 65 | 6e 74 0d 1e 1e 27 20 dc |..Peleme|nt...' .|
|00005a30| 32 39 33 2e 37 33 37 33 | 33 34 2c 35 33 2e 31 37 |293.7373|34,53.17|
|00005a40| 31 33 37 36 34 32 2c 33 | 2e 31 30 37 45 2d 34 2c |137642,3|.107E-4,|
|00005a50| 30 0d 1e 28 25 20 dc 33 | 2e 33 34 32 31 38 32 30 |0..(% .3|.3421820|
|00005a60| 33 45 32 2c 31 2e 38 34 | 30 37 35 38 34 2c 31 2e |3E2,1.84|07584,1.|
|00005a70| 32 39 39 45 2d 34 0d 1e | 32 0e 20 dc 2d 31 2e 31 |299E-4..|2. .-1.1|
|00005a80| 39 45 2d 36 0d 1e 3c 24 | 20 dc 39 2e 33 33 31 32 |9E-6..<$| .9.3312|
|00005a90| 39 45 2d 32 2c 39 2e 32 | 30 36 34 45 2d 35 2c 2d |9E-2,9.2|064E-5,-|
|00005aa0| 37 2e 37 45 2d 38 2c 30 | 0d 1e 46 21 20 dc 31 2e |7.7E-8,0|..F! .1.|
|00005ab0| 38 35 30 33 33 33 2c 2d | 36 2e 37 35 45 2d 34 2c |850333,-|6.75E-4,|
|00005ac0| 31 2e 32 36 45 2d 35 2c | 30 0d 1e 50 23 20 dc 34 |1.26E-5,|0..P# .4|
|00005ad0| 38 2e 37 38 36 34 34 32 | 2c 37 2e 37 30 39 39 31 |8.786442|,7.70991|
|00005ae0| 37 45 2d 31 2c 2d 31 2e | 34 45 2d 36 0d 1e 5a 0e |7E-1,-1.|4E-6..Z.|
|00005af0| 20 dc 2d 35 2e 33 33 45 | 2d 36 0d 1e 64 1a 20 dc | .-5.33E|-6..d. .|
|00005b00| 31 2e 35 32 33 36 38 38 | 33 2c 39 2e 33 36 2c 2d |1.523688|3,9.36,-|
|00005b10| 31 2e 35 32 0d 1e 6e 06 | 20 3a 0d 1e 78 18 20 f2 |1.52..n.| :..x. .|
|00005b20| 4a 75 6c 64 61 79 3a 54 | 3d 44 4a 44 2f 33 36 35 |Julday:T|=DJD/365|
|00005b30| 32 35 0d 1e 82 08 20 49 | 3d 31 0d 1e 8c 19 20 f3 |25.... I|=1.... .|
|00005b40| 41 30 2c 41 31 2c 41 32 | 2c 41 33 3a 41 41 3d 41 |A0,A1,A2|,A3:AA=A|
|00005b50| 31 2a 54 0d 1e 96 15 20 | 42 3d 33 36 30 2a 28 41 |1*T.... |B=360*(A|
|00005b60| 41 2d a8 28 41 41 29 29 | 0d 1e a0 21 20 50 4c 41 |A-.(AA))|...! PLA|
|00005b70| 4e 28 49 2c 31 29 3d 41 | 30 2b 42 2b 28 41 33 2a |N(I,1)=A|0+B+(A3*|
|00005b80| 54 2b 41 32 29 2a 54 2a | 54 0d 1e aa 35 20 e7 20 |T+A2)*T*|T...5 . |
|00005b90| 50 4c 41 4e 28 49 2c 31 | 29 3e 33 36 30 20 8c 20 |PLAN(I,1|)>360 . |
|00005ba0| 50 4c 41 4e 28 49 2c 31 | 29 3d 50 4c 41 4e 28 49 |PLAN(I,1|)=PLAN(I|
|00005bb0| 2c 31 29 2d 33 36 30 3a | e5 20 8d 74 6a 5e 0d 1e |,1)-360:|. .tj^..|
|00005bc0| b4 33 20 e7 20 50 4c 41 | 4e 28 49 2c 31 29 3c 30 |.3 . PLA|N(I,1)<0|
|00005bd0| 20 8c 20 50 4c 41 4e 28 | 49 2c 31 29 3d 50 4c 41 | . PLAN(|I,1)=PLA|
|00005be0| 4e 28 49 2c 31 29 2b 33 | 36 30 3a e5 20 8d 74 74 |N(I,1)+3|60:. .tt|
|00005bf0| 5e 0d 1e be 2d 20 50 4c | 41 4e 28 49 2c 32 29 3d |^...- PL|AN(I,2)=|
|00005c00| 28 41 31 2a 39 2e 38 35 | 36 32 36 33 45 2d 33 29 |(A1*9.85|6263E-3)|
|00005c10| 2b 28 41 32 2b 41 33 29 | 2f 33 36 35 32 35 0d 1e |+(A2+A3)|/36525..|
|00005c20| c8 1c 20 e3 20 4a 3d 33 | 20 b8 20 36 3a f3 20 41 |.. . J=3| . 6:. A|
|00005c30| 30 2c 41 31 2c 41 32 2c | 41 33 0d 1e d2 24 20 50 |0,A1,A2,|A3...$ P|
|00005c40| 4c 41 4e 28 49 2c 4a 29 | 3d 28 28 41 33 2a 54 2b |LAN(I,J)|=((A3*T+|
|00005c50| 41 32 29 2a 54 2b 41 31 | 29 2a 54 2b 41 30 0d 1e |A2)*T+A1|)*T+A0..|
|00005c60| dc 08 20 ed 20 4a 0d 1e | e6 24 20 f3 20 50 4c 41 |.. . J..|.$ . PLA|
|00005c70| 4e 28 49 2c 37 29 2c 50 | 4c 41 4e 28 49 2c 38 29 |N(I,7),P|LAN(I,8)|
|00005c80| 2c 50 4c 41 4e 28 49 2c | 39 29 0d 1e f0 06 20 f7 |,PLAN(I,|9).... .|
|00005c90| 0d 1e fa 06 20 e1 0d 1f | 04 06 20 3a 0d 1f 0e 0c |.... ...|.. :....|
|00005ca0| 20 dd f2 50 6c 61 6e 73 | 0d 1f 18 1a 20 f2 50 65 | ..Plans|.... .Pe|
|00005cb0| 6c 65 6d 65 6e 74 3a 44 | 54 3d 30 3a 50 41 53 53 |lement:D|T=0:PASS|
|00005cc0| 3d 30 0d 1f 22 0c 20 54 | 50 49 3d 32 2a af 0d 1f |=0..". T|PI=2*...|
|00005cd0| 2c 10 20 f2 53 75 6e 3a | 4d 41 53 3d 4d 41 0d 1f |,. .Sun:|MAS=MA..|
|00005ce0| 36 14 20 52 45 3d 52 53 | 4e 3a 4c 47 3d 4c 53 4e |6. RE=RS|N:LG=LSN|
|00005cf0| 2b af 0d 1f 40 0e 20 e3 | 20 4a 3d 31 20 b8 20 38 |+...@. .| J=1 . 8|
|00005d00| 0d 1f 4a 32 20 4d 41 50 | 28 4a 29 3d a4 52 41 44 |..J2 MAP|(J)=.RAD|
|00005d10| 28 50 4c 41 4e 28 4a 2c | 31 29 2d 50 4c 41 4e 28 |(PLAN(J,|1)-PLAN(|
|00005d20| 4a 2c 33 29 2d 44 54 2a | 50 4c 41 4e 28 4a 2c 32 |J,3)-DT*|PLAN(J,2|
|00005d30| 29 29 0d 1f 54 08 20 ed | 20 4a 0d 1f 5e 19 20 44 |))..T. .| J..^. D|
|00005d40| 4c 3d 30 3a 44 52 3d 30 | 3a 44 4d 4c 3d 30 3a 44 |L=0:DR=0|:DML=0:D|
|00005d50| 53 3d 30 0d 1f 68 14 20 | 44 4d 3d 30 3a 44 41 3d |S=0..h. |DM=0:DA=|
|00005d60| 30 3a 44 48 4c 3d 30 0d | 1f 72 06 20 3a 0d 1f 7c |0:DHL=0.|.r. :..||
|00005d70| 0a 20 f2 4d 61 72 73 0d | 1f 86 20 20 53 3d 50 4c |. .Mars.|.. S=PL|
|00005d80| 41 4e 28 31 2c 34 29 2b | 44 53 3a 4d 41 3d 4d 41 |AN(1,4)+|DS:MA=MA|
|00005d90| 50 28 31 29 2b 44 4d 0d | 1f 90 0d 20 f2 41 6e 6f |P(1)+DM.|... .Ano|
|00005da0| 6d 61 6c 79 0d 1f 9a 2a | 20 52 50 3d 28 50 4c 41 |maly...*| RP=(PLA|
|00005db0| 4e 28 31 2c 37 29 2b 44 | 41 29 2a 28 31 2d 53 2a |N(1,7)+D|A)*(1-S*|
|00005dc0| 53 29 2f 28 31 2b 53 2a | 9b 28 4e 55 29 29 0d 1f |S)/(1+S*|.(NU))..|
|00005dd0| a4 27 20 4c 50 3d a4 44 | 45 47 28 4e 55 29 2b 50 |.' LP=.D|EG(NU)+P|
|00005de0| 4c 41 4e 28 31 2c 33 29 | 2b a4 44 45 47 28 44 4d |LAN(1,3)|+.DEG(DM|
|00005df0| 4c 2d 44 4d 29 0d 1f ae | 23 20 4c 50 3d a4 52 41 |L-DM)...|# LP=.RA|
|00005e00| 44 28 4c 50 29 3a 4f 4d | 3d a4 52 41 44 28 50 4c |D(LP):OM|=.RAD(PL|
|00005e10| 41 4e 28 31 2c 36 29 29 | 0d 1f b8 21 20 4c 4f 3d |AN(1,6))|...! LO=|
|00005e20| 4c 50 2d 4f 4d 3a 53 4c | 4f 3d b5 28 4c 4f 29 3a |LP-OM:SL|O=.(LO):|
|00005e30| 43 4c 4f 3d 9b 28 4c 4f | 29 0d 1f c2 21 20 49 4e |CLO=.(LO|)...! IN|
|00005e40| 43 3d a4 52 41 44 28 50 | 4c 41 4e 28 31 2c 35 29 |C=.RAD(P|LAN(1,5)|
|00005e50| 29 3a 52 50 3d 52 50 2b | 44 52 0d 1f cc 21 20 53 |):RP=RP+|DR...! S|
|00005e60| 50 53 49 3d 53 4c 4f 2a | b5 28 49 4e 43 29 3a 59 |PSI=SLO*|.(INC):Y|
|00005e70| 3d 53 4c 4f 2a 9b 28 49 | 4e 43 29 0d 1f d6 23 20 |=SLO*.(I|NC)...# |
|00005e80| 50 53 49 3d a4 41 53 4e | 28 53 50 53 49 29 2b 44 |PSI=.ASN|(SPSI)+D|
|00005e90| 48 4c 3a 53 50 53 49 3d | b5 28 50 53 49 29 0d 1f |HL:SPSI=|.(PSI)..|
|00005ea0| e0 1d 20 4c 50 44 3d 99 | 28 59 2f 43 4c 4f 29 2b |.. LPD=.|(Y/CLO)+|
|00005eb0| 4f 4d 2b a4 52 41 44 28 | 44 4c 29 0d 1f ea 18 20 |OM+.RAD(|DL).... |
|00005ec0| e7 20 43 4c 4f 3c 30 20 | 8c 20 4c 50 44 3d 4c 50 |. CLO<0 |. LPD=LP|
|00005ed0| 44 2b af 0d 1f f4 1c 20 | e7 20 4c 50 44 3e 54 50 |D+..... |. LPD>TP|
|00005ee0| 49 20 8c 20 4c 50 44 3d | 4c 50 44 2d 54 50 49 0d |I . LPD=|LPD-TPI.|
|00005ef0| 1f fe 1c 20 43 50 53 49 | 3d 9b 28 50 53 49 29 3a |... CPSI|=.(PSI):|
|00005f00| 52 50 44 3d 52 50 2a 43 | 50 53 49 0d 20 08 1a 20 |RPD=RP*C|PSI. .. |
|00005f10| 4c 4c 3d 4c 50 44 2d 4c | 47 3a 50 41 53 53 3d 50 |LL=LPD-L|G:PASS=P|
|00005f20| 41 53 53 2b 31 0d 20 12 | 27 20 52 48 4f 3d 52 45 |ASS+1. .|' RHO=RE|
|00005f30| 2a 52 45 2b 52 50 2a 52 | 50 2d 32 2a 52 45 2a 52 |*RE+RP*R|P-2*RE*R|
|00005f40| 50 2a 43 50 53 49 2a 9b | 28 4c 4c 29 0d 20 1c 20 |P*CPSI*.|(LL). . |
|00005f50| 20 52 48 4f 3d b6 28 52 | 48 4f 29 3a 44 54 3d 52 | RHO=.(R|HO):DT=R|
|00005f60| 48 4f 2a 35 2e 37 37 35 | 35 45 2d 33 0d 20 26 31 |HO*5.775|5E-3. &1|
|00005f70| 20 e7 20 50 41 53 53 3d | 31 20 8c 20 4c 50 44 30 | . PASS=|1 . LPD0|
|00005f80| 3d 4c 50 44 3a 50 53 49 | 30 3d 50 53 49 3a 52 48 |=LPD:PSI|0=PSI:RH|
|00005f90| 4f 30 3d 52 48 4f 3a 52 | 50 30 3d 52 50 0d 20 30 |O0=RHO:R|P0=RP. 0|
|00005fa0| 14 20 e7 20 50 41 53 53 | 3c 32 20 8c 20 8d 44 40 |. . PASS|<2 . .D@|
|00005fb0| 5f 0d 20 3a 18 20 53 4c | 4c 3d b5 28 4c 4c 29 3a |_. :. SL|L=.(LL):|
|00005fc0| 43 4c 4c 3d 9b 28 4c 4c | 29 0d 20 44 23 20 4c 41 |CLL=.(LL|). D# LA|
|00005fd0| 4d 3d 99 28 52 45 2a 53 | 4c 4c 2f 28 52 50 44 2d |M=.(RE*S|LL/(RPD-|
|00005fe0| 52 45 2a 43 4c 4c 29 29 | 2b 4c 50 44 0d 20 4e 21 |RE*CLL))|+LPD. N!|
|00005ff0| 20 e7 20 4c 41 4d 3c 30 | 20 8c 20 4c 41 4d 3d 4c | . LAM<0| . LAM=L|
|00006000| 41 4d 2b 54 50 49 3a e5 | 20 8d 44 4e 60 0d 20 58 |AM+TPI:.| .DN`. X|
|00006010| 23 20 e7 20 4c 41 4d 3e | 54 50 49 20 8c 20 4c 41 |# . LAM>|TPI . LA|
|00006020| 4d 3d 4c 41 4d 2d 54 50 | 49 3a e5 20 8d 44 58 60 |M=LAM-TP|I:. .DX`|
|00006030| 0d 20 62 2d 20 42 45 54 | 3d 99 28 52 50 44 2a 53 |. b- BET|=.(RPD*S|
|00006040| 50 53 49 2a b5 28 4c 41 | 4d 2d 4c 50 44 29 2f 28 |PSI*.(LA|M-LPD)/(|
|00006050| 43 50 53 49 2a 52 45 2a | 53 4c 4c 29 29 0d 20 6c |CPSI*RE*|SLL)). l|
|00006060| 06 20 e1 0d 20 76 06 20 | 3a 0d 20 80 0b 20 dd f2 |. .. v. |:. .. ..|
|00006070| 4d 61 72 73 0d 20 8a 1e | 20 41 3d 33 2a 4d 41 50 |Mars. ..| A=3*MAP|
|00006080| 28 34 29 2d 38 2a 4d 41 | 50 28 33 29 2b 34 2a 4d |(4)-8*MA|P(3)+4*M|
|00006090| 41 53 0d 20 94 14 20 53 | 41 3d b5 28 41 29 3a 43 |AS. .. S|A=.(A):C|
|000060a0| 41 3d 9b 28 41 29 0d 20 | 9e 24 20 44 4d 4c 3d 2d |A=.(A). |.$ DML=-|
|000060b0| 31 2a 28 31 2e 31 33 33 | 45 2d 32 2a 53 41 2b 39 |1*(1.133|E-2*SA+9|
|000060c0| 2e 33 33 45 2d 33 2a 43 | 41 29 0d 20 a8 19 20 44 |.33E-3*C|A). .. D|
|000060d0| 4d 4c 3d a4 52 41 44 28 | 44 4d 4c 29 3a 44 4d 3d |ML=.RAD(|DML):DM=|
|000060e0| 44 4d 4c 0d 20 b2 d3 20 | 44 4c 3d 37 2e 30 35 45 |DML. .. |DL=7.05E|
|000060f0| 2d 33 2a 9b 28 4d 41 50 | 28 34 29 2d 4d 41 50 28 |-3*.(MAP|(4)-MAP(|
|00006100| 33 29 2d 38 2e 35 34 34 | 38 45 2d 31 29 2b 36 2e |3)-8.544|8E-1)+6.|
|00006110| 30 37 45 2d 33 2a 9b 28 | 32 2a 4d 41 50 28 34 29 |07E-3*.(|2*MAP(4)|
|00006120| 2d 4d 41 50 28 33 29 2d | 33 2e 32 38 37 33 29 2b |-MAP(3)-|3.2873)+|
|00006130| 34 2e 34 35 45 2d 33 2a | 9b 28 32 2a 4d 41 50 28 |4.45E-3*|.(2*MAP(|
|00006140| 34 29 2d 32 2a 4d 41 50 | 28 33 29 2d 33 2e 33 34 |4)-2*MAP|(3)-3.34|
|00006150| 39 32 29 2b 33 2e 38 38 | 45 2d 33 2a 9b 28 4d 41 |92)+3.88|E-3*.(MA|
|00006160| 53 2d 32 2a 4d 41 50 28 | 33 29 2b 33 2e 35 37 37 |S-2*MAP(|3)+3.577|
|00006170| 31 45 2d 31 29 2b 32 2e | 33 38 45 2d 33 2a 9b 28 |1E-1)+2.|38E-3*.(|
|00006180| 4d 41 53 2d 4d 41 50 28 | 33 29 2b 36 2e 31 32 35 |MAS-MAP(|3)+6.125|
|00006190| 36 45 2d 31 29 2b 32 2e | 30 34 45 2d 33 2a 9b 28 |6E-1)+2.|04E-3*.(|
|000061a0| 32 2a 4d 41 53 2d 33 2a | 4d 41 50 28 33 29 2b 32 |2*MAS-3*|MAP(3)+2|
|000061b0| 2e 37 36 38 38 29 0d 20 | bc 69 20 44 4c 3d 44 4c |.7688). |.i DL=DL|
|000061c0| 2b 31 2e 37 37 45 2d 33 | 2a 9b 28 33 2a 4d 41 50 |+1.77E-3|*.(3*MAP|
|000061d0| 28 33 29 2d 4d 41 50 28 | 32 29 2d 31 2e 30 30 35 |(3)-MAP(|2)-1.005|
|000061e0| 33 29 2b 31 2e 33 36 45 | 2d 33 2a 9b 28 32 2a 4d |3)+1.36E|-3*.(2*M|
|000061f0| 41 53 2d 34 2a 4d 41 50 | 28 33 29 2b 32 2e 36 38 |AS-4*MAP|(3)+2.68|
|00006200| 39 34 29 2b 31 2e 30 34 | 45 2d 33 2a 9b 28 4d 41 |94)+1.04|E-3*.(MA|
|00006210| 50 28 34 29 2b 33 2e 30 | 37 34 39 45 2d 31 29 0d |P(4)+3.0|749E-1).|
|00006220| 20 c6 c0 20 44 52 3d 35 | 2e 33 32 32 37 45 2d 35 | .. DR=5|.3227E-5|
|00006230| 2a 9b 28 4d 41 50 28 34 | 29 2d 4d 41 50 28 33 29 |*.(MAP(4|)-MAP(3)|
|00006240| 2b 37 2e 31 37 38 36 34 | 45 2d 31 29 2b 35 2e 30 |+7.17864|E-1)+5.0|
|00006250| 39 38 39 45 2d 35 2a 9b | 28 32 2a 4d 41 50 28 34 |989E-5*.|(2*MAP(4|
|00006260| 29 2d 32 2a 4d 41 50 28 | 33 29 2d 31 2e 37 37 39 |)-2*MAP(|3)-1.779|
|00006270| 39 37 29 2b 33 2e 38 32 | 37 38 45 2d 35 2a 9b 28 |97)+3.82|78E-5*.(|
|00006280| 32 2a 4d 41 50 28 34 29 | 2d 4d 41 50 28 33 29 2d |2*MAP(4)|-MAP(3)-|
|00006290| 31 2e 37 31 36 31 37 29 | 2b 31 2e 35 39 39 36 45 |1.71617)|+1.5996E|
|000062a0| 2d 35 2a 9b 28 4d 41 53 | 2d 4d 41 50 28 33 29 2d |-5*.(MAS|-MAP(3)-|
|000062b0| 39 2e 36 39 36 31 38 45 | 2d 31 29 2b 31 2e 34 37 |9.69618E|-1)+1.47|
|000062c0| 36 34 45 2d 35 2a 9b 28 | 32 2a 4d 41 53 2d 33 2a |64E-5*.(|2*MAS-3*|
|000062d0| 4d 41 50 28 33 29 2b 31 | 2e 31 39 37 36 38 29 0d |MAP(3)+1|.19768).|
|000062e0| 20 d0 c2 20 44 52 3d 44 | 52 2b 38 2e 39 36 36 45 | .. DR=D|R+8.966E|
|000062f0| 2d 36 2a 9b 28 4d 41 50 | 28 34 29 2d 32 2a 4d 41 |-6*.(MAP|(4)-2*MA|
|00006300| 50 28 33 29 2b 37 2e 36 | 31 32 32 35 45 2d 31 29 |P(3)+7.6|1225E-1)|
|00006310| 2b 37 2e 39 31 34 45 2d | 36 2a 9b 28 33 2a 4d 41 |+7.914E-|6*.(3*MA|
|00006320| 50 28 34 29 2d 32 2a 4d | 41 50 28 33 29 2d 32 2e |P(4)-2*M|AP(3)-2.|
|00006330| 34 33 38 38 37 29 2b 37 | 2e 30 30 34 45 2d 36 2a |43887)+7|.004E-6*|
|00006340| 9b 28 32 2a 4d 41 50 28 | 34 29 2d 33 2a 4d 41 50 |.(2*MAP(|4)-3*MAP|
|00006350| 28 33 29 2d 31 2e 37 39 | 35 37 33 29 2b 36 2e 36 |(3)-1.79|573)+6.6|
|00006360| 32 45 2d 36 2a 9b 28 4d | 41 53 2d 32 2a 4d 41 50 |2E-6*.(M|AS-2*MAP|
|00006370| 28 33 29 2b 31 2e 39 37 | 35 37 35 29 2b 34 2e 39 |(3)+1.97|575)+4.9|
|00006380| 33 45 2d 36 2a 9b 28 33 | 2a 4d 41 50 28 34 29 2d |3E-6*.(3|*MAP(4)-|
|00006390| 33 2a 4d 41 50 28 33 29 | 2d 31 2e 33 33 30 36 39 |3*MAP(3)|-1.33069|
|000063a0| 29 0d 20 da 74 20 44 52 | 3d 44 52 2b 34 2e 36 39 |). .t DR|=DR+4.69|
|000063b0| 33 45 2d 36 2a 9b 28 33 | 2a 4d 41 53 2d 35 2a 4d |3E-6*.(3|*MAS-5*M|
|000063c0| 41 50 28 33 29 2b 33 2e | 33 32 36 36 35 29 2b 34 |AP(3)+3.|32665)+4|
|000063d0| 2e 35 37 31 45 2d 36 2a | 9b 28 32 2a 4d 41 53 2d |.571E-6*|.(2*MAS-|
|000063e0| 34 2a 4d 41 50 28 33 29 | 2b 34 2e 32 37 30 38 36 |4*MAP(3)|+4.27086|
|000063f0| 29 2b 34 2e 34 30 39 45 | 2d 36 2a 9b 28 33 2a 4d |)+4.409E|-6*.(3*M|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
